X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fregression.q;h=53ac594b455ff4955959b3b8dcf2049ec98915b9;hb=65d87cf950fb5383a272905f2d7fdf94bcabfda2;hp=8f9979ae73306476c8eec5a6c42105a01a951d7a;hpb=38ba1e157ad8053fb0c6eb44f2115e10de56d07d;p=pspp-builds.git

diff --git a/src/language/stats/regression.q b/src/language/stats/regression.q
index 8f9979ae..53ac594b 100644
--- a/src/language/stats/regression.q
+++ b/src/language/stats/regression.q
@@ -206,7 +206,7 @@ reg_stats_coeff (linreg * c, void *aux_)
   tab_double (t, 4, 1, 0, 0.0, NULL);
   t_stat = linreg_intercept (c) / std_err;
   tab_double (t, 5, 1, 0, t_stat, NULL);
-  pval = 2 * gsl_cdf_tdist_Q (fabs (t_stat), 1.0);
+  pval = 2 * gsl_cdf_tdist_Q (fabs (t_stat), (double) (linreg_n_obs (c) - linreg_n_coeffs (c)));
   tab_double (t, 6, 1, 0, pval, NULL);
   for (j = 0; j < linreg_n_coeffs (c); j++)
     {