X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Foneway.c;h=a64b760eb9174ab0ac0c61821c16a2fd4b8589c2;hb=52d795d2fe3611efc1d51b2cdf6851bb7e67682e;hp=807b5dc39f10b6e8bc5f2af2eb8637b97a4796b6;hpb=fbaa01a45afaa56c8aa46a99ff95864beebe2237;p=pspp

diff --git a/src/language/stats/oneway.c b/src/language/stats/oneway.c
index 807b5dc39f..a64b760eb9 100644
--- a/src/language/stats/oneway.c
+++ b/src/language/stats/oneway.c
@@ -1528,10 +1528,15 @@ show_contrast_tests (const struct oneway_spec *cmd, const struct oneway_workspac
 		      TAB_RIGHT, df,
 		      NULL);
 
-	  /* The Significance */
-	  tab_double (t, 7, (v * lines_per_variable) + i + 1 + n_contrasts,
-		      TAB_RIGHT,  2 * gsl_cdf_tdist_Q (T,df),
-		      NULL);
+	  {
+	    double p = gsl_cdf_tdist_P (T, df);
+	    double q = gsl_cdf_tdist_Q (T, df);
+
+	    /* The Significance */
+	    tab_double (t, 7, (v * lines_per_variable) + i + 1 + n_contrasts,
+			TAB_RIGHT,  2 * ((T > 0) ? q : p),
+			NULL);
+	  }
 	}
 
       if ( v > 0 )