[Pspp-cvs] pspp/lib/linreg linreg.c

[Jason H Stover]

CVSROOT:        /sources/pspp
Module name:    pspp
Branch:         
Changes by:     Jason H Stover <address@hidden> 05/12/19 17:19:25

Modified files:
        lib/linreg     : linreg.c 

Log message:
        Dropped references to unused vector param_estimates

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pspp/pspp/lib/linreg/linreg.c.diff?tr1=1.7&tr2=1.8&r1=text&r2=text

Patches:
Index: pspp/lib/linreg/linreg.c
diff -u pspp/lib/linreg/linreg.c:1.7 pspp/lib/linreg/linreg.c:1.8
--- pspp/lib/linreg/linreg.c:1.7        Fri Dec 16 15:44:33 2005
+++ pspp/lib/linreg/linreg.c    Mon Dec 19 17:19:25 2005
@@ -90,7 +90,6 @@
   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 @@
 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 @@
        {
          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 @@
            }
          gsl_matrix_set (cache->cov, 0, 0, tmp);
 
-         gsl_vector_set (cache->param_estimates, 0, m);
          cache->coeff[0].estimate = m;
        }
       else