X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?p=pspp-builds.git;a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Ft-test.q;h=d02cdb28d21597a087f51640762de88573c33a3b;hp=09a96cfc194930b3cc063c77056622c91455237b;hb=b5c82cc9aabe7e641011130240ae1b2e84348e23;hpb=91a5888ad22ff93d212c9534d720d8f8bf52e56b

diff --git a/src/language/stats/t-test.q b/src/language/stats/t-test.q
index 09a96cfc..d02cdb28 100644
--- a/src/language/stats/t-test.q
+++ b/src/language/stats/t-test.q
@@ -974,8 +974,8 @@ trbox_paired_populate (struct trbox *trb,
       /* Degrees of freedom */
       tab_double (trb->t, 8, i + 3, TAB_RIGHT, df, &proc->weight_format);
 
-      p = gsl_cdf_tdist_P (t, df);
-      q = gsl_cdf_tdist_P (t, df);
+      p = gsl_cdf_tdist_P (t,df);
+      q = gsl_cdf_tdist_Q (t,df);
 
       tab_double (trb->t, 9, i + 3, TAB_RIGHT, 2.0 * (t > 0 ? q : p), NULL);
     }