X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fregression.q;h=68db454d40edfbc38316884903f893227fd9bc0b;hb=299e0bad13a78f0ede0ce6aad5f6b66bbb1deffd;hp=595e7e750c54d4d996b85b71eb141f87b4ba8d52;hpb=a992bf1121d3e1eef76fd6184b95fe079bb91558;p=pspp-builds.git

diff --git a/src/language/stats/regression.q b/src/language/stats/regression.q
index 595e7e75..68db454d 100644
--- a/src/language/stats/regression.q
+++ b/src/language/stats/regression.q
@@ -148,7 +148,7 @@ reg_stats_r (pspp_linreg_cache * c)
   assert (c != NULL);
   rsq = c->ssm / c->sst;
   adjrsq = 1.0 - (1.0 - rsq) * (c->n_obs - 1.0) / (c->n_obs - c->n_indeps);
-  std_error = sqrt ((c->n_indeps - 1.0) / (c->n_obs - 1.0));
+  std_error = sqrt (pspp_linreg_mse (c));
   t = tab_create (n_cols, n_rows, 0);
   tab_dim (t, tab_natural_dimensions);
   tab_box (t, TAL_2, TAL_2, -1, TAL_1, 0, 0, n_cols - 1, n_rows - 1);
@@ -281,7 +281,7 @@ reg_stats_anova (pspp_linreg_cache * c)
   int n_cols = 7;
   int n_rows = 4;
   const double msm = c->ssm / c->dfm;
-  const double mse = c->sse / c->dfe;
+  const double mse = pspp_linreg_mse (c);
   const double F = msm / mse;
   const double pval = gsl_cdf_fdist_Q (F, c->dfm, c->dfe);
 
@@ -689,17 +689,21 @@ subcommand_save (struct dataset *ds, int save, pspp_linreg_cache ** models)
 
       for (lc = models; lc < models + cmd.n_dependent; lc++)
 	{
-	  assert (*lc != NULL);
-	  assert ((*lc)->depvar != NULL);
-	  if (cmd.a_save[REGRESSION_SV_RESID])
-	    {
-	      reg_save_var (ds, "RES", regression_trns_resid_proc, *lc,
-			    &(*lc)->resid, n_trns);
-	    }
-	  if (cmd.a_save[REGRESSION_SV_PRED])
+	  if (*lc != NULL)
 	    {
-	      reg_save_var (ds, "PRED", regression_trns_pred_proc, *lc,
-			    &(*lc)->pred, n_trns);
+	      if ((*lc)->depvar != NULL)
+		{
+		  if (cmd.a_save[REGRESSION_SV_RESID])
+		    {
+		      reg_save_var (ds, "RES", regression_trns_resid_proc, *lc,
+				    &(*lc)->resid, n_trns);
+		    }
+		  if (cmd.a_save[REGRESSION_SV_PRED])
+		    {
+		      reg_save_var (ds, "PRED", regression_trns_pred_proc, *lc,
+				    &(*lc)->pred, n_trns);
+		    }
+		}
 	    }
 	}
     }