linreg.c: (pspp_linreg_mse) New accessor function

[pspp-builds.git] / src / math / linreg.c

diff --git a/src/math/linreg.c b/src/math/linreg.c
index a50aa7d8f105aaff4a6921ee84a88539956d3122..f5ae33e5823f4f79cfaccd73637316baa2f96d0f 100644 (file)
--- a/src/math/linreg.c
+++ b/src/math/linreg.c
@@ -737,3 +737,9 @@ pspp_linreg_with_cov (const struct covariance_matrix *full_cov,
   design_matrix_destroy (cov);
 }
 
+double pspp_linreg_mse (const pspp_linreg_cache *c)
+{
+  assert (c != NULL);
+  return (c->sse / c->dfe);
+}
+