From: John Darrington <john@darrington.wattle.id.au>
Date: Wed, 4 Feb 2004 23:49:42 +0000 (+0000)
Subject: Added proper error messages in T-TEST
X-Git-Tag: v0.4.0~374
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8d8407ab17237ce42f37b4984b080d7fd55a5958;p=pspp-builds.git

Added proper error messages in T-TEST
---

diff --git a/src/t-test.q b/src/t-test.q
index 1df4581a..81c9c2aa 100644
--- a/src/t-test.q
+++ b/src/t-test.q
@@ -908,7 +908,11 @@ trbox_one_sample_populate(struct trbox *trb, struct cmd_t_test *cmd)
 
       cdft(&which, &p, &q, &t, &df, &status, &bound);
 
-      assert(status == 0 ); /* FIXME: use proper error message */
+      if ( 0 != status )
+	{
+	  msg( SE, _("Error calculating T statistic (cdft returned %d)."),status);
+	}
+
 
       /* Multiply by 2 to get 2-tailed significance */
       tab_float (trb->t, 3, i+3, TAB_RIGHT, q*2.0, 8,3);
@@ -920,7 +924,10 @@ trbox_one_sample_populate(struct trbox *trb, struct cmd_t_test *cmd)
       p = 1 - q ;
       which=2; /* Calc T from p,q and df */
       cdft(&which, &p, &q, &t, &df, &status, &bound);
-      assert(status == 0 ); /* FIXME: proper error message */
+      if ( 0 != status )
+	{
+	  msg( SE, _("Error calculating T statistic (cdft returned %d)."),status);
+	}
 
       tab_float (trb->t, 5, i+3, TAB_RIGHT,
 		 ttp->mean_diff - t * ttp->se_mean, 8,4);