math: Improve comments.

[pspp] / src / math / linreg.c

diff --git a/src/math/linreg.c b/src/math/linreg.c
index d1e0dae980e1e12c03e312b0fcbf7fd6139b6fb7..d417599babd94f9fa9afc9030b457ca8e03bfcb4 100644 (file)
--- 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. */
@@ -445,7 +445,7 @@ linreg_fit (const gsl_matrix *cov, struct linreg *l)
       linreg_fit_qr (cov, l);
     }
   else
-#endif    
+#endif
     {
       gsl_matrix *params = gsl_matrix_calloc (cov->size1, cov->size2);
       gsl_matrix_memcpy (params, cov);
@@ -530,19 +530,19 @@ double linreg_sst (const struct linreg *c)
 }
 
 double
-linreg_dfmodel ( const struct linreg *c)
+linreg_dfmodel (const struct linreg *c)
 {
   return c->dfm;
 }
 
 double
-linreg_dferror ( const struct linreg *c)
+linreg_dferror (const struct linreg *c)
 {
   return c->dfe;
 }
 
 double
-linreg_dftotal ( const struct linreg *c)
+linreg_dftotal (const struct linreg *c)
 {
   return c->dft;
 }