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=c69a6cdb5bc5adb552afedbc209030d6ada3b12b;hp=40bf97788b35e157082ebaf37a460f5216946c7c;hb=5ee84736663824fe12474b78dace867e42893a14;hpb=0faad29b5c735cce9672331681392c2b1f0b5690

diff --git a/src/language/stats/t-test.q b/src/language/stats/t-test.q
index 40bf9778..c69a6cdb 100644
--- a/src/language/stats/t-test.q
+++ b/src/language/stats/t-test.q
@@ -1279,7 +1279,7 @@ trbox_paired_populate (struct trbox *trb,
       tab_double (trb->t, 8, i+3, TAB_RIGHT, df, wfmt);
 
       p = gsl_cdf_tdist_P (t,df);
-      q = 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);