X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fjonckheere-terpstra.c;h=86e705d25013cab24232433b26d8677a02a3027c;hb=4b2eb0d1ce8df60aa43e2fe37628ae00b80d1115;hp=9bf4cb74134de3cb5eccd286d757b1d35d22a86e;hpb=a8b84a10b8749b3e2ecbfa0b73deb97e1b682d4e;p=pspp

diff --git a/src/language/stats/jonckheere-terpstra.c b/src/language/stats/jonckheere-terpstra.c
index 9bf4cb7413..86e705d250 100644
--- a/src/language/stats/jonckheere-terpstra.c
+++ b/src/language/stats/jonckheere-terpstra.c
@@ -358,6 +358,7 @@ show_jt (const struct n_sample_test *nst, const struct jt *jt, const struct vari
 
   struct tab_table *table =
     tab_create (row_headers + 7, column_headers + nst->n_vars);
+  tab_set_format (table, RC_WEIGHT, wfmt);
 
   tab_headers (table, row_headers, 0, column_headers, 0);
 
@@ -387,30 +388,32 @@ show_jt (const struct n_sample_test *nst, const struct jt *jt, const struct vari
 
   for (i = 0; i < nst->n_vars; ++i)
     {
+      double std_jt;
+
       tab_text (table, 0, i + row_headers, TAT_TITLE, 
                 var_to_string (nst->vars[i]) );
 
       tab_double (table, 1, i + row_headers, TAT_TITLE, 
-                  jt[0].levels, &F_8_0);
+                  jt[0].levels, NULL, RC_INTEGER);
  
       tab_double (table, 2, i + row_headers, TAT_TITLE, 
-                  jt[0].n, wfmt);
+                  jt[0].n, NULL, RC_WEIGHT);
 
       tab_double (table, 3, i + row_headers, TAT_TITLE, 
-                  jt[0].obs, 0);
+                  jt[0].obs, NULL, RC_OTHER);
 
       tab_double (table, 4, i + row_headers, TAT_TITLE, 
-                  jt[0].mean, 0);
+                  jt[0].mean, NULL, RC_OTHER);
 
       tab_double (table, 5, i + row_headers, TAT_TITLE, 
-                  jt[0].stddev, 0);
+                  jt[0].stddev, NULL, RC_OTHER);
 
-      double std_jt = (jt[0].obs - jt[0].mean) / jt[0].stddev;
+      std_jt = (jt[0].obs - jt[0].mean) / jt[0].stddev;
       tab_double (table, 6, i + row_headers, TAT_TITLE, 
-                  std_jt, 0);
+                  std_jt, NULL, RC_OTHER);
 
       tab_double (table, 7, i + row_headers, TAT_TITLE, 
-                  2.0 * ((std_jt > 0) ? gsl_cdf_ugaussian_Q (std_jt) : gsl_cdf_ugaussian_P (std_jt)), 0);
+                  2.0 * ((std_jt > 0) ? gsl_cdf_ugaussian_Q (std_jt) : gsl_cdf_ugaussian_P (std_jt)), NULL, RC_PVALUE);
     }
   
   tab_submit (table);