linreg: Comment out unused function to avoid compiler warning.

[pspp] / src / math / linreg.c

diff --git a/src/math/linreg.c b/src/math/linreg.c
index b5ccbc599921cad6b9fd1ecf02a5d24ef4abacb2..d1e0dae980e1e12c03e312b0fcbf7fd6139b6fb7 100644 (file)
--- a/src/math/linreg.c
+++ b/src/math/linreg.c
@@ -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