Added result_class parameter to tab_double and updated all callers. Removed tab_fixed

[pspp] / src / language / stats / wilcoxon.c

diff --git a/src/language/stats/wilcoxon.c b/src/language/stats/wilcoxon.c
index ed6225df6cee329ab33be3f737829e5ab9bf3f1d..2a8061dd91e0e17328e6ce45e0b25ffe5452b8d0 100644 (file)
--- a/src/language/stats/wilcoxon.c
+++ b/src/language/stats/wilcoxon.c
@@ -81,7 +81,7 @@ wilcoxon_execute (const struct dataset *ds,
   const struct dictionary *dict = dataset_dict (ds);
   const struct two_sample_test *t2s = UP_CAST (test, const struct two_sample_test, parent);
 
-  struct wilcoxon_state *ws = xcalloc (sizeof (*ws), t2s->n_pairs);
+  struct wilcoxon_state *ws = xcalloc (t2s->n_pairs, sizeof *ws);
   const struct variable *weight = dict_get_weight (dict);
   struct variable *weightx = dict_create_internal_var (WEIGHT_IDX, 0);
   struct caseproto *proto;
@@ -221,6 +221,7 @@ show_ranks_box (const struct wilcoxon_state *ws,
   const struct fmt_spec *wfmt = wv ? var_get_print_format (wv) : & F_8_0;
 
   struct tab_table *table = tab_create (5, 1 + 4 * t2s->n_pairs);
+  tab_set_format (table, RC_WEIGHT, wfmt);
 
   tab_title (table, _("Ranks"));
 
@@ -262,24 +263,24 @@ show_ranks_box (const struct wilcoxon_state *ws,
 
 
       /* N */
-      tab_double (table, 2, 1 + i * 4, TAB_RIGHT, ws[i].negatives.n, wfmt);
-      tab_double (table, 2, 2 + i * 4, TAB_RIGHT, ws[i].positives.n, wfmt);
-      tab_double (table, 2, 3 + i * 4, TAB_RIGHT, ws[i].n_zeros, wfmt);
+      tab_double (table, 2, 1 + i * 4, TAB_RIGHT, ws[i].negatives.n, NULL, RC_WEIGHT);
+      tab_double (table, 2, 2 + i * 4, TAB_RIGHT, ws[i].positives.n, NULL, RC_WEIGHT);
+      tab_double (table, 2, 3 + i * 4, TAB_RIGHT, ws[i].n_zeros, NULL, RC_WEIGHT);
 
       tab_double (table, 2, 4 + i * 4, TAB_RIGHT,
-                ws[i].n_zeros + ws[i].positives.n + ws[i].negatives.n, wfmt);
+                 ws[i].n_zeros + ws[i].positives.n + ws[i].negatives.n, NULL, RC_WEIGHT);
 
       /* Sums */
-      tab_double (table, 4, 1 + i * 4, TAB_RIGHT, ws[i].negatives.sum, NULL);
-      tab_double (table, 4, 2 + i * 4, TAB_RIGHT, ws[i].positives.sum, NULL);
+      tab_double (table, 4, 1 + i * 4, TAB_RIGHT, ws[i].negatives.sum, NULL, RC_OTHER);
+      tab_double (table, 4, 2 + i * 4, TAB_RIGHT, ws[i].positives.sum, NULL, RC_OTHER);
 
 
       /* Means */
       tab_double (table, 3, 1 + i * 4, TAB_RIGHT,
-                ws[i].negatives.sum / (double) ws[i].negatives.n, NULL);
+                 ws[i].negatives.sum / (double) ws[i].negatives.n, NULL, RC_OTHER);
 
       tab_double (table, 3, 2 + i * 4, TAB_RIGHT,
-                ws[i].positives.sum / (double) ws[i].positives.n, NULL);
+                 ws[i].positives.sum / (double) ws[i].positives.n, NULL, RC_OTHER);
 
     }
 
@@ -347,23 +348,23 @@ show_tests_box (const struct wilcoxon_state *ws,
 
       z /= sqrt (n * (n + 1) * (2*n + 1)/24.0 - ws[i].tiebreaker / 48.0);
 
-      tab_double (table, 1 + i, 1, TAB_RIGHT, z, NULL);
+      tab_double (table, 1 + i, 1, TAB_RIGHT, z, NULL, RC_OTHER);
 
       tab_double (table, 1 + i, 2, TAB_RIGHT,
                 2.0 * gsl_cdf_ugaussian_P (z),
-                NULL);
+                 NULL, RC_PVALUE);
 
       if (exact)
        {
          double p = LevelOfSignificanceWXMPSR (ws[i].positives.sum, n);
          if (p < 0)
            {
-             msg (MW, ("Too many pairs to calculate exact significance."));
+             msg (MW, _("Too many pairs to calculate exact significance."));
            }
          else
            {
-             tab_double (table, 1 + i, 3, TAB_RIGHT, p, NULL);
-             tab_double (table, 1 + i, 4, TAB_RIGHT, p / 2.0, NULL);
+             tab_double (table, 1 + i, 3, TAB_RIGHT, p, NULL, RC_PVALUE);
+             tab_double (table, 1 + i, 4, TAB_RIGHT, p / 2.0, NULL, RC_PVALUE);
            }
        }
     }