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