X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Foneway.q;h=a400c1da6f0f08b54e23cbe98d47973be275e2e2;hb=5e89e0049bd55f22412f547d8d7bfefc69443e98;hp=6c745cd15367fdab19724bc6e63a57b77ed25a2e;hpb=2322678e8fddbbf158b01b2720db2636404bba3b;p=pspp diff --git a/src/language/stats/oneway.q b/src/language/stats/oneway.q index 6c745cd153..a400c1da6f 100644 --- a/src/language/stats/oneway.q +++ b/src/language/stats/oneway.q @@ -19,31 +19,35 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ #include + #include -#include "message.h" +#include #include #include -#include -#include "alloc.h" -#include "str.h" -#include "case.h" -#include "dictionary.h" -#include "command.h" -#include "compiler.h" -#include "lexer.h" -#include "message.h" -#include "magic.h" -#include "misc.h" -#include "table.h" -#include "manager.h" -#include "value-labels.h" -#include "variable.h" -#include "procedure.h" -#include "hash.h" -#include "casefile.h" -#include "group-proc.h" -#include "group.h" -#include "levene.h" + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include "sort-criteria.h" #include "gettext.h" #define _(msgid) gettext (msgid) @@ -91,7 +95,8 @@ static int ostensible_number_of_groups=-1; static is_missing_func *value_is_missing; -static bool run_oneway(const struct casefile *cf, void *_mode); +static bool run_oneway(const struct ccase *first, + const struct casefile *cf, void *_mode); /* Routines to show the output tables */ @@ -355,7 +360,7 @@ show_anova_table(void) } - tab_title (t, 0, _("ANOVA")); + tab_title (t, _("ANOVA")); tab_submit (t); @@ -412,7 +417,7 @@ show_descriptives(void) tab_text (t, 9, 1, TAB_CENTER | TAT_TITLE, _("Maximum")); - tab_title (t, 0, _("Descriptives")); + tab_title (t, _("Descriptives")); row = 2; @@ -428,7 +433,8 @@ show_descriptives(void) const char *s = var_to_string(vars[v]); - struct group_statistics *const *gs_array = hsh_sort(gp->group_hash); + struct group_statistics *const *gs_array = + (struct group_statistics *const *) hsh_sort(gp->group_hash); int count = 0; tab_text (t, 0, row, TAB_LEFT | TAT_TITLE, s); @@ -541,7 +547,7 @@ show_homogeneity(void) tab_text (t, 4, 0, TAB_CENTER | TAT_TITLE, _("Significance")); - tab_title (t, 0, _("Test of Homogeneity of Variances")); + tab_title (t, _("Test of Homogeneity of Variances")); for ( v=0 ; v < n_vars ; ++v ) { @@ -611,7 +617,7 @@ show_contrast_coeffs(short *bad_contrast) tab_vline(t, TAL_2, 2, 0, n_rows - 1); - tab_title (t, 0, _("Contrast Coefficients")); + tab_title (t, _("Contrast Coefficients")); tab_text (t, 0, 2, TAB_LEFT | TAT_TITLE, _("Contrast")); @@ -678,7 +684,7 @@ show_contrast_tests(short *bad_contrast) tab_vline(t, TAL_2, 3, 0, n_rows - 1); - tab_title (t, 0, _("Contrast Tests")); + tab_title (t, _("Contrast Tests")); tab_text (t, 2, 0, TAB_CENTER | TAT_TITLE, _("Contrast")); tab_text (t, 3, 0, TAB_CENTER | TAT_TITLE, _("Value of Contrast")); @@ -888,13 +894,15 @@ precalc ( struct cmd_oneway *cmd UNUSED ) static bool -run_oneway(const struct casefile *cf, void *cmd_) +run_oneway(const struct ccase *first, const struct casefile *cf, void *cmd_) { struct casereader *r; struct ccase c; struct cmd_oneway *cmd = (struct cmd_oneway *) cmd_; + output_split_file_values (first); + global_group_hash = hsh_create(4, (hsh_compare_func *) compare_values, (hsh_hash_func *) hash_value,