From: John Darrington <john@darrington.wattle.id.au>
Date: Wed, 9 Apr 2008 09:12:40 +0000 (+0000)
Subject: Fix display of degrees of freedom.
X-Git-Tag: v0.6.0~39
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ed24f50cccaeba2326df63281c2a042d07116d14;p=pspp-builds.git

Fix display of degrees of freedom.
---

diff --git a/src/language/stats/ChangeLog b/src/language/stats/ChangeLog
index 0b6d4e36..13bba3dd 100644
--- a/src/language/stats/ChangeLog
+++ b/src/language/stats/ChangeLog
@@ -1,3 +1,7 @@
+2008-04-09  John Darrington <john@darrington.wattle.id.au>
+
+	* regression.q: Fix display of degrees of freedom.
+
 2008-04-08  Jason Stover  <jhs@math.gcsu.edu>
 
 	* regression.q (identify_indep_vars): Don't panic unless
diff --git a/src/language/stats/regression.q b/src/language/stats/regression.q
index 92afb378..aaf787b5 100644
--- a/src/language/stats/regression.q
+++ b/src/language/stats/regression.q
@@ -318,12 +318,11 @@ reg_stats_anova (pspp_linreg_cache * c)
 
 
   /* Degrees of freedom */
-  tab_float (t, 3, 1, 0, c->dfm, 4, 0);
-  tab_float (t, 3, 2, 0, c->dfe, 4, 0);
-  tab_float (t, 3, 3, 0, c->dft, 4, 0);
+  tab_text (t, 3, 1, TAB_RIGHT | TAT_PRINTF, "%g", c->dfm);
+  tab_text (t, 3, 2, TAB_RIGHT | TAT_PRINTF, "%g", c->dfe);
+  tab_text (t, 3, 3, TAB_RIGHT | TAT_PRINTF, "%g", c->dft);
 
   /* Mean Squares */
-
   tab_float (t, 4, 1, TAB_RIGHT, msm, 8, 3);
   tab_float (t, 4, 2, TAB_RIGHT, mse, 8, 3);
 
@@ -334,21 +333,25 @@ reg_stats_anova (pspp_linreg_cache * c)
   tab_title (t, _("ANOVA"));
   tab_submit (t);
 }
+
 static void
 reg_stats_outs (pspp_linreg_cache * c)
 {
   assert (c != NULL);
 }
+
 static void
 reg_stats_zpp (pspp_linreg_cache * c)
 {
   assert (c != NULL);
 }
+
 static void
 reg_stats_label (pspp_linreg_cache * c)
 {
   assert (c != NULL);
 }
+
 static void
 reg_stats_sha (pspp_linreg_cache * c)
 {