From: John Darrington <john@darrington.wattle.id.au>
Date: Wed, 4 Feb 2004 12:22:38 +0000 (+0000)
Subject: Fixed bug calculating mean difference.
X-Git-Tag: v0.4.0~375
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=aaa565535e0fd686483acad6026fe47005aca4ae;p=pspp-builds.git

Fixed bug calculating mean difference.
---

diff --git a/src/t-test.q b/src/t-test.q
index 34c3f078..1df4581a 100644
--- a/src/t-test.q
+++ b/src/t-test.q
@@ -1039,7 +1039,7 @@ one_sample_calc (struct ccase *c)
       ttp= &cmd.v_variables[i]->p.t_t;
       
       if (val->f != SYSMIS) 
-	ttp->sum_diff += weight * fabs(val->f - cmd.n_testval);
+	ttp->sum_diff += weight * (val->f - cmd.n_testval);
     }
 
   return 0;