Fixed bug calculating mean difference.

diff --git a/src/t-test.q b/src/t-test.q
index 34c3f07842cc88e4f8a89b98b42c527772e4d84b..1df4581a8b37b8de7ffd0061da700cb0c45fa03d 100644 (file)
--- 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;