X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=lib%2Flinreg%2Fsweep.c;h=8805840e2c4f0261af1cc3df92267919a20d626d;hb=009350385d97d9fba2b33ea68cfe8b1aeebf1529;hp=6e114266c7ac0f64b5d2d89729a3fb7f568555ce;hpb=ece7245b6bf64b2d3d8a50472d18bbe176c982d4;p=pspp-builds.git diff --git a/lib/linreg/sweep.c b/lib/linreg/sweep.c index 6e114266..8805840e 100644 --- a/lib/linreg/sweep.c +++ b/lib/linreg/sweep.c @@ -45,7 +45,7 @@ Springer. 1998. ISBN 0-387-98542-5. */ -#include "pspp_linreg.h" +#include "sweep.h" /* The matrix A will be overwritten. In ordinary uses of the sweep @@ -58,7 +58,7 @@ -- -- X refers to the design matrix and Y to the vector of dependent - observations. pspp_reg_sweep sweeps on the diagonal elements of + observations. reg_sweep sweeps on the diagonal elements of X'X. The matrix A is assumed to be symmetric, so the sweep operation is @@ -66,7 +66,7 @@ */ int -pspp_reg_sweep (gsl_matrix * A) +reg_sweep (gsl_matrix * A) { double sweep_element; double tmp;