From aaa565535e0fd686483acad6026fe47005aca4ae Mon Sep 17 00:00:00 2001
From: John Darrington <john@darrington.wattle.id.au>
Date: Wed, 4 Feb 2004 12:22:38 +0000
Subject: [PATCH] Fixed bug calculating mean difference.

---
 src/t-test.q | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.30.2