From d7b5d9144738a5a8989d45a01f4e458a78b68c0b Mon Sep 17 00:00:00 2001
From: Jason Stover <jhs@math.gcsu.edu>
Date: Sun, 30 Oct 2005 15:06:18 +0000
Subject: [PATCH] Parameter estimate matched with appropriate variable during
 estimation

---
 lib/linreg/linreg.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/linreg/linreg.c b/lib/linreg/linreg.c
index 85b302d1..2a8aff3f 100644
--- a/lib/linreg/linreg.c
+++ b/lib/linreg/linreg.c
@@ -172,6 +172,9 @@ pspp_linreg (const gsl_vector * Y, const gsl_matrix * X,
   cache->dft = cache->n_obs - 1;
   cache->dfm = cache->n_indeps;
   cache->dfe = cache->dft - cache->dfm;
+  cache->n_coeffs = X->size2 + 1; /* Adjust this later to allow for regression
+				     through the origin.
+				  */
   if (cache->method == PSPP_LINREG_SWEEP)
     {
       gsl_matrix *sw;
-- 
2.30.2