From: Jason Stover <jhs@math.gcsu.edu>
Date: Tue, 18 Oct 2005 19:49:21 +0000 (+0000)
Subject: Fixed std. error of estimated R-square
X-Git-Tag: v0.6.0~1189
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=64f58bbdab17e4a09b725e713f4f82f567f44076;p=pspp-builds.git

Fixed std. error of estimated R-square
---

diff --git a/src/regression.q b/src/regression.q
index f96e0fec..a35786b4 100644
--- a/src/regression.q
+++ b/src/regression.q
@@ -100,23 +100,23 @@ reg_stats_r (pspp_linreg_cache * c)
   double rsq;
   double adjrsq;
   double stderr;
-  
+
   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);
-  stderr = sqrt (2 * (c->n_indeps - 1.0) / (c->n_obs - 1.0));
+  stderr = sqrt ((c->n_indeps - 1.0) / (c->n_obs - 1.0));
   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);
   tab_hline (t, TAL_2, 0, n_cols - 1, 1);
   tab_vline (t, TAL_2, 2, 0, n_rows - 1);
   tab_vline (t, TAL_0, 1, 0, 0);
-  
+
   tab_text (t, 1, 0, TAB_CENTER | TAT_TITLE, _("R"));
-  tab_text (t, 2, 0, TAB_CENTER | TAT_TITLE, _("R Square"));  
-  tab_text (t, 3, 0, TAB_CENTER | TAT_TITLE, _("Adjusted R Square"));  
-  tab_text (t, 4, 0, TAB_CENTER | TAT_TITLE, _("Std. Error of the Estimate"));    
-  tab_float (t, 1, 1, TAB_RIGHT, sqrt(rsq), 10, 2);
+  tab_text (t, 2, 0, TAB_CENTER | TAT_TITLE, _("R Square"));
+  tab_text (t, 3, 0, TAB_CENTER | TAT_TITLE, _("Adjusted R Square"));
+  tab_text (t, 4, 0, TAB_CENTER | TAT_TITLE, _("Std. Error of the Estimate"));
+  tab_float (t, 1, 1, TAB_RIGHT, sqrt (rsq), 10, 2);
   tab_float (t, 2, 1, TAB_RIGHT, rsq, 10, 2);
   tab_float (t, 3, 1, TAB_RIGHT, adjrsq, 10, 2);
   tab_float (t, 4, 1, TAB_RIGHT, stderr, 10, 2);
@@ -522,7 +522,7 @@ run_regression (const struct casefile *cf, void *cmd_)
 	   */
 	  if (is_depvar (i))
 	    {
-	      assert(v->type == NUMERIC);
+	      assert (v->type == NUMERIC);
 	      gsl_vector_set (Y, row, val->f);
 	    }
 	  else