X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=lib%2Flinreg%2Fsweep.c;h=8805840e2c4f0261af1cc3df92267919a20d626d;hb=2153ca9b3cb9616c616a4b58abb300de1f317541;hp=6e114266c7ac0f64b5d2d89729a3fb7f568555ce;hpb=9703148a4b6ae39bd7ff79741020dac46018a7f7;p=pspp diff --git a/lib/linreg/sweep.c b/lib/linreg/sweep.c index 6e114266c7..8805840e2c 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;