X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fjonckheere-terpstra.c;h=86e705d25013cab24232433b26d8677a02a3027c;hb=1e0e76eaeb51ef0c15fdcfc4bd12d9310c16a88b;hp=796168a8eec87888a0ed4ee2ca554b699c6dd9d7;hpb=1133aae2eb44a012939a95613bf5cd1698f5b5e9;p=pspp diff --git a/src/language/stats/jonckheere-terpstra.c b/src/language/stats/jonckheere-terpstra.c index 796168a8ee..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); @@ -393,26 +394,26 @@ show_jt (const struct n_sample_test *nst, const struct jt *jt, const struct vari 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); 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);