X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fcochran.c;h=4274a583dee164bb32a393e00f2caf236f807736;hb=649c202d57d7d5d8bb87be5b72839cd56ca4ca0b;hp=869e5f5c8332759ede3a2fc602bac0150ff88ede;hpb=14f4522a17db23e67a6fa17876633cc6260cb42b;p=pspp diff --git a/src/language/stats/cochran.c b/src/language/stats/cochran.c index 869e5f5c83..4274a583de 100644 --- a/src/language/stats/cochran.c +++ b/src/language/stats/cochran.c @@ -154,6 +154,7 @@ show_freqs_box (const struct one_sample_test *ost, const struct cochran *ct) const int column_headers = 2; struct tab_table *table = tab_create (row_headers + 2, column_headers + ost->n_vars); + tab_set_format (table, RC_WEIGHT, wfmt); tab_headers (table, row_headers, 0, column_headers, 0); @@ -184,10 +185,10 @@ show_freqs_box (const struct one_sample_test *ost, const struct cochran *ct) TAB_LEFT, var_to_string (ost->vars[i])); tab_double (table, 1, column_headers + i, 0, - ct->hits[i], wfmt); + ct->hits[i], NULL, RC_WEIGHT); tab_double (table, 2, column_headers + i, 0, - ct->misses[i], wfmt); + ct->misses[i], NULL, RC_WEIGHT); } tab_submit (table); @@ -206,6 +207,9 @@ show_sig_box (const struct cochran *ch) struct tab_table *table = tab_create (row_headers + 1, column_headers + 4); + + tab_set_format (table, RC_WEIGHT, wfmt); + tab_headers (table, row_headers, 0, column_headers, 0); tab_title (table, _("Test Statistics")); @@ -230,17 +234,17 @@ show_sig_box (const struct cochran *ch) tab_vline (table, TAL_2, row_headers, 0, tab_nr (table) - 1); tab_double (table, 1, column_headers, - 0, ch->cc, wfmt); + 0, ch->cc, NULL, RC_WEIGHT); tab_double (table, 1, column_headers + 1, - 0, ch->q, 0); + 0, ch->q, NULL, RC_OTHER); tab_double (table, 1, column_headers + 2, - 0, ch->df, &F_8_0); + 0, ch->df, NULL, RC_INTEGER); tab_double (table, 1, column_headers + 3, 0, gsl_cdf_chisq_Q (ch->q, ch->df), - 0); + NULL, RC_PVALUE); tab_submit (table); }