X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Ft-test-indep.c;h=115885d4b9750a661dba7d1f7ef33b9cd885f920;hb=bea96fcb5c8cf6ffb179a830ecb39f52ff2c5db8;hp=876b9857d5bbea9efa19ccc6137feea7c205b043;hpb=71eea20b080f51f1aa00ef35acf4f49ce742d10a;p=pspp diff --git a/src/language/stats/t-test-indep.c b/src/language/stats/t-test-indep.c index 876b9857d5..115885d4b9 100644 --- a/src/language/stats/t-test-indep.c +++ b/src/language/stats/t-test-indep.c @@ -82,7 +82,7 @@ indep_run (struct tt *tt, const struct variable *gvar, struct ccase *c; struct casereader *r; - struct pair_stats *ps = xcalloc (sizeof (*ps), tt->n_vars); + struct pair_stats *ps = xcalloc (tt->n_vars, sizeof *ps); int v; @@ -215,8 +215,7 @@ indep_summary (const struct tt *tt, struct indep_samples *is, const struct pair_ if (is->cut) { - /* ds_put_cstr (&vallab0, "≥"); */ - ds_put_cstr (&vallab0, ">="); + ds_put_cstr (&vallab0, "≥"); ds_put_cstr (&vallab1, "<"); var_append_value_name (is->gvar, is->gval0, &vallab0); @@ -228,6 +227,8 @@ indep_summary (const struct tt *tt, struct indep_samples *is, const struct pair_ var_append_value_name (is->gvar, is->gval1, &vallab1); } + tab_vline (t, TAL_1, 1, heading_rows, rows - 1); + for (v = 0; v < tt->n_vars; ++v) { int i; @@ -300,6 +301,8 @@ indep_test (const struct tt *tt, const struct pair_stats *ps) _("%g%% Confidence Interval of the Difference"), tt->confidence * 100.0); + tab_vline (t, TAL_1, 1, heading_rows, rows - 1); + for (v = 0; v < tt->n_vars; ++v) { double df, pooled_variance, mean_diff, tval;