Dropped references to unused vector param_estimates

diff --git a/lib/linreg/linreg.c b/lib/linreg/linreg.c
index dc7f1d0172933a581b017a830a489890120ec5cf..6c2ee289015ae06bed91c07b9ed4637eb8425df1 100644 (file)
--- a/lib/linreg/linreg.c
+++ b/lib/linreg/linreg.c
@@ -90,7 +90,6 @@ pspp_linreg_cache_alloc (size_t n, size_t p)
   pspp_linreg_cache *c;
 
   c = (pspp_linreg_cache *) malloc (sizeof (pspp_linreg_cache));
-  c->param_estimates = gsl_vector_alloc (p + 1);
   c->indep_means = gsl_vector_alloc (p);
   c->indep_std = gsl_vector_alloc (p);
   c->ssx = gsl_vector_alloc (p);       /* Sums of squares for the independent
@@ -113,7 +112,6 @@ pspp_linreg_cache_alloc (size_t n, size_t p)
 void
 pspp_linreg_cache_free (pspp_linreg_cache * c)
 {
-  gsl_vector_free (c->param_estimates);
   gsl_vector_free (c->indep_means);
   gsl_vector_free (c->indep_std);
   gsl_vector_free (c->ss_indeps);
@@ -250,7 +248,6 @@ pspp_linreg (const gsl_vector * Y, const gsl_matrix * X,
        {
          tmp = gsl_matrix_get (sw, i, cache->n_indeps);
          cache->coeff[i + 1].estimate = tmp;
-         gsl_vector_set (cache->param_estimates, i + 1, tmp);
          m -= tmp * gsl_vector_get (cache->indep_means, i);
        }
       /*
@@ -286,7 +283,6 @@ 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

diff --git a/lib/linreg/pspp_linreg.h b/lib/linreg/pspp_linreg.h
index 40c5ad842b3df324c071d3d4771ffd6dc6cd39e4..a8db8a10f8e7979302fa401394e53088239b55d6 100644 (file)
--- a/lib/linreg/pspp_linreg.h
+++ b/lib/linreg/pspp_linreg.h
@@ -93,7 +93,6 @@ struct pspp_linreg_cache_struct
 
   gsl_vector *residuals;
   struct pspp_linreg_coeff *coeff;
-  gsl_vector *param_estimates;
   int method;                  /* Method to use to estimate parameters. */
   /*
      Means and standard deviations of the variables.