From 0993546e3908becb569bbd979f09ab284cbbc09c Mon Sep 17 00:00:00 2001 From: Jason Stover Date: Sun, 6 Apr 2008 22:03:01 +0000 Subject: [PATCH] oops --- src/math/linreg/linreg.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/math/linreg/linreg.c b/src/math/linreg/linreg.c index 0782c36f..659d6ca4 100644 --- a/src/math/linreg/linreg.c +++ b/src/math/linreg/linreg.c @@ -397,9 +397,9 @@ pspp_linreg (const gsl_vector * Y, const gsl_matrix * X, wk = gsl_multifit_linear_alloc (design->size1, design->size2); rc = gsl_multifit_linear (design, Y, param_estimates, cache->cov, &(cache->sse), wk); - for (i = 1; i < cache->n_coeffs; i++) + for (i = 0; i < cache->n_coeffs; i++) { - cache->coeff[i]->estimate = gsl_vector_get (param_estimates, i); + cache->coeff[i]->estimate = gsl_vector_get (param_estimates, i + 1); } cache->intercept = gsl_vector_get (param_estimates, 0); if (rc == GSL_SUCCESS) -- 2.30.2