X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fmath%2Flinreg.c;h=f88a18a5b804fa5861c7c45d5762e375c43274ed;hb=5f3cd72e75cfe4ded7c2ca3b2cd0936412ba71ab;hp=b5ccbc599921cad6b9fd1ecf02a5d24ef4abacb2;hpb=8961943f7492c63ba29cbb61faf698b59aca4ff2;p=pspp

diff --git a/src/math/linreg.c b/src/math/linreg.c
index b5ccbc5999..f88a18a5b8 100644
--- a/src/math/linreg.c
+++ b/src/math/linreg.c
@@ -275,11 +275,11 @@ linreg_predict (const struct linreg *c, const double *vals, size_t n_vals)
   size_t j;
   double result;
 
-  assert (n_vals == c->n_coeffs);
   if (vals == NULL || c == NULL)
     {
       return GSL_NAN;
     }
+  assert (n_vals == c->n_coeffs);
   if (c->coeff == NULL)
     {
       /* The stupid model: just guess the mean. */
@@ -322,6 +322,7 @@ linreg_set_indep_variable_mean (struct linreg *c, size_t j, double m)
   gsl_vector_set (c->indep_means, j, m);
 }
 
+#if 0
 static void
 linreg_fit_qr (const gsl_matrix *cov, struct linreg *l)
 {
@@ -415,6 +416,7 @@ linreg_fit_qr (const gsl_matrix *cov, struct linreg *l)
   gsl_matrix_free (xtx);
   gsl_vector_free (params);
 }
+#endif
 
 #define REG_LARGE_DATA 1000