Fixed assignment of the intercept

[pspp] / lib / linreg / linreg.c

diff --git a/lib/linreg/linreg.c b/lib/linreg/linreg.c
index fb6bbc45e1b298bb0e784035ab69a705208980e3..dc7f1d0172933a581b017a830a489890120ec5cf 100644 (file)
--- a/lib/linreg/linreg.c
+++ b/lib/linreg/linreg.c
@@ -287,6 +287,7 @@ pspp_linreg (const gsl_vector * Y, const gsl_matrix * X,
          gsl_matrix_set (cache->cov, 0, 0, tmp);
 
          gsl_vector_set (cache->param_estimates, 0, m);
+         cache->coeff[0].estimate = m;
        }
       else
        {