X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fmath%2Flinreg%2Flinreg.c;h=9ba84f60ece9d8c3991be31cce09766129e886ef;hb=87b30887d6b08f4bfe92e0474f5f38cc4bf1acfa;hp=558f6646fe33dde8e2ed19bcac22fd2614e76bb1;hpb=41a3a550334da96a9b4e5e089ad1768acf288092;p=pspp-builds.git diff --git a/src/math/linreg/linreg.c b/src/math/linreg/linreg.c index 558f6646..9ba84f60 100644 --- a/src/math/linreg/linreg.c +++ b/src/math/linreg/linreg.c @@ -1,22 +1,18 @@ -/* - lib/linreg/linreg.c - - Copyright (C) 2005 Free Software Foundation, Inc. Written by Jason H. Stover. - - This program is free software; you can redistribute it and/or modify it under - the terms of the GNU General Public License as published by the Free - Software Foundation; either version 2 of the License, or (at your option) - any later version. - - This program is distributed in the hope that it will be useful, but WITHOUT - ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - more details. - - You should have received a copy of the GNU General Public License along with - this program; if not, write to the Free Software Foundation, Inc., 51 - Franklin Street, Fifth Floor, Boston, MA 02111-1307, USA. - */ +/* PSPP - a program for statistical analysis. + Copyright (C) 2005 Free Software Foundation, Inc. Written by Jason H. Stover. + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . */ #include #include @@ -152,10 +148,10 @@ pspp_linreg_cache_alloc (size_t n, size_t p) c->indep_means = gsl_vector_alloc (p); c->indep_std = gsl_vector_alloc (p); c->ssx = gsl_vector_alloc (p); /* Sums of squares for the - independent variables. + independent variables. */ c->ss_indeps = gsl_vector_alloc (p); /* Sums of squares for the - model parameters. + model parameters. */ c->cov = gsl_matrix_alloc (p + 1, p + 1); /* Covariance matrix. */ c->n_obs = n; @@ -249,7 +245,7 @@ pspp_linreg (const gsl_vector * Y, const gsl_matrix * X, cache->dfm = cache->n_indeps; cache->dfe = cache->dft - cache->dfm; cache->n_coeffs = X->size2 + 1; /* Adjust this later to allow for - regression through the origin. + regression through the origin. */ if (cache->method == PSPP_LINREG_SWEEP) {