X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fbinomial.c;h=39b8506d53edb7f184df01831522e0da7511217e;hb=c41f14854e73ad44824b54933ae96eb52f781fc2;hp=1d8d15fc63a3b1d5131c8cfd5045564737f14554;hpb=43b1296aafe7582e7dbe6c2b6a8b478d7d9b0fcf;p=pspp-builds.git diff --git a/src/language/stats/binomial.c b/src/language/stats/binomial.c index 1d8d15fc..39b8506d 100644 --- a/src/language/stats/binomial.c +++ b/src/language/stats/binomial.c @@ -17,7 +17,6 @@ #include #include #include -#include #include #include @@ -33,6 +32,8 @@ #include "binomial.h" #include "freq.h" +#include "xalloc.h" + #include "gettext.h" #define _(msgid) gettext (msgid) @@ -184,7 +185,16 @@ binomial_execute (const struct dataset *ds, for (v = 0 ; v < ost->n_vars; ++v) { double n_total, sig; + struct string catstr1; + struct string catstr2; const struct variable *var = ost->vars[v]; + + ds_init_empty (&catstr1); + ds_init_empty (&catstr2); + + var_append_value_name (var, cat1[v].value, &catstr1); + var_append_value_name (var, cat2[v].value, &catstr2); + tab_hline (table, TAL_1, 0, tab_nc (table) -1, 1 + v * 3); /* Titles */ @@ -197,10 +207,8 @@ binomial_execute (const struct dataset *ds, tab_float (table, 5, 1 + v * 3, TAB_NONE, bst->p, 8, 3); /* Category labels */ - tab_text (table, 2, 1 + v * 3, TAB_NONE, - var_get_value_name (var, cat1[v].value)); - tab_text (table, 2, 2 + v * 3, TAB_NONE, - var_get_value_name (var, cat2[v].value)); + tab_text (table, 2, 1 + v * 3, TAB_NONE, ds_cstr (&catstr1)); + tab_text (table, 2, 2 + v * 3, TAB_NONE, ds_cstr (&catstr2)); /* Observed N */ tab_float (table, 3, 1 + v * 3, TAB_NONE, cat1[v].count, 8, 0); @@ -220,6 +228,9 @@ binomial_execute (const struct dataset *ds, /* Significance */ sig = calculate_binomial (cat1[v].count, cat2[v].count, bst->p); tab_float (table, 6, 1 + v * 3, TAB_NONE, sig, 8, 3); + + ds_destroy (&catstr1); + ds_destroy (&catstr2); } tab_text (table, 2, 0, TAB_CENTER, _("Category"));