X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Ft-test-paired.c;h=5cf4a9f29ed8125716aea0406c99e684fe9d0b99;hb=912833f9331784d692ade66c76bffb5497b890e0;hp=933b0b35535dcdcc07517302dc9d0160e04337b0;hpb=0df9cdd3df66caf4353128feff3008289cda8115;p=pspp

diff --git a/src/language/stats/t-test-paired.c b/src/language/stats/t-test-paired.c
index 933b0b3553..5cf4a9f29e 100644
--- 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);