X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fbinomial.c;h=ca40f5f43ab0d9bab868d94c587a9a4ce1a0993c;hb=f5c108becd49d78f4898cab11352291f5689d24e;hp=91910ee5102e5d28dc927a3404b129d9c908c8a9;hpb=7eee0554f378481faf447e2d2e940f389d6b05ec;p=pspp-builds.git diff --git a/src/language/stats/binomial.c b/src/language/stats/binomial.c index 91910ee5..ca40f5f4 100644 --- a/src/language/stats/binomial.c +++ b/src/language/stats/binomial.c @@ -77,7 +77,7 @@ calculate_binomial (double n1, double n2, double p) static double calculate_binomial_internal (double n1, double n2, double p) { - /* SPSS Statistical Algorithms has completely different and WRONG + /* SPSS Statistical Algorithms has completely different and WRONG advice here. */ double sig1tailed = gslextras_cdf_binomial_P (n1, n1 + n2, p); @@ -170,7 +170,7 @@ binomial_execute (const struct dataset *ds, cat2->value = value_dup (&v, 0); } - if (do_binomial (dataset_dict(ds), input, bst, cat1, cat2, exclude)) + if (do_binomial (dataset_dict(ds), input, bst, cat1, cat2, exclude)) { struct tab_table *table = tab_create (7, ost->n_vars * 3 + 1, 0); @@ -236,12 +236,12 @@ binomial_execute (const struct dataset *ds, tab_vline (table, TAL_2, 2, 0, tab_nr (table) -1); tab_submit (table); } - - for (v = 0; v < ost->n_vars; v++) + + for (v = 0; v < ost->n_vars; v++) { free (cat1[v].value); - free (cat2[v].value); + free (cat2[v].value); } free (cat1); - free (cat2); + free (cat2); }