From: Jason H Stover Date: Fri, 21 May 2010 16:02:56 +0000 (-0400) Subject: Removed unused function X-Git-Tag: v0.7.5~1 X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f50fcf3adae1695a0ae3ca148c3bba68071c1bd3;p=pspp-builds.git Removed unused function --- diff --git a/src/math/linreg.c b/src/math/linreg.c index 462a0785..8bf1ad62 100644 --- a/src/math/linreg.c +++ b/src/math/linreg.c @@ -264,34 +264,6 @@ void linreg_set_indep_variable_mean (linreg *c, size_t j, double m) assert (c != NULL); gsl_vector_set (c->indep_means, j, m); } -static void invert_r (gsl_matrix *r, gsl_matrix *r_inv) -{ - size_t i; - size_t j; - size_t k; - size_t row; - double tmp; - - for (i = 0; i < r->size1; i++) - { - gsl_matrix_set (r_inv, i, i, 1.0 / gsl_matrix_get (r, i, i)); - } - for (i = 0; i < r->size1; i++) - { - row = 0; - for (j = row + 1 + i; j < r->size2; j++) - { - tmp = 0.0; - for (k = 1; k <= j - row; k++) - { - tmp += gsl_matrix_get (r, row, row + k) - * gsl_matrix_get (r_inv, row + k, j); - } - gsl_matrix_set (r_inv, row, j, -tmp / gsl_matrix_get (r, row, row)); - row++; - } - } -} static void linreg_fit_qr (const gsl_matrix *cov, linreg *l)