Fixed some bugs related to empty parentheses

[pspp] / src / language / stats / t-test-paired.c

diff --git a/src/language/stats/t-test-paired.c b/src/language/stats/t-test-paired.c
index 933b0b35535dcdcc07517302dc9d0160e04337b0..5cf4a9f29ed8125716aea0406c99e684fe9d0b99 100644 (file)
--- a/src/language/stats/t-test-paired.c
+++ b/src/language/stats/t-test-paired.c
@@ -132,7 +132,7 @@ paired_run (const struct tt *tt, size_t n_pairs, vp *pairs, struct casereader *r
          moments_pass_two (pp->mom0, val0->f, w);
          moments_pass_two (pp->mom1, val1->f, w);
          moments_pass_two (pp->mom_diff, val0->f - val1->f, w);
-         pp->sum_of_prod += val0->f * val1->f;
+         pp->sum_of_prod += val0->f * val1->f * w;
        }
     }
   casereader_destroy (r);