X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fmann-whitney.c;h=81fe033af52ac9bb4cb8b995db7d6ddc03efae27;hb=9cb6dec84b34ad0b8d424e2e023b66ab2d84e5c1;hp=eafafdd9503147ea22e9f0c542ca058da43b98c1;hpb=f2547763390e5fdb35a9d1a3c0bdb1e07060f901;p=pspp diff --git a/src/language/stats/mann-whitney.c b/src/language/stats/mann-whitney.c index eafafdd950..81fe033af5 100644 --- a/src/language/stats/mann-whitney.c +++ b/src/language/stats/mann-whitney.c @@ -1,5 +1,5 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 2010 Free Software Foundation, Inc. + Copyright (C) 2010, 2011 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -16,20 +16,20 @@ #include -#include "mann-whitney.h" +#include "language/stats/mann-whitney.h" #include -#include -#include - -#include -#include -#include -#include -#include -#include -#include +#include "data/case.h" +#include "data/casereader.h" +#include "data/dataset.h" +#include "data/dictionary.h" +#include "data/format.h" +#include "data/variable.h" +#include "libpspp/cast.h" +#include "libpspp/misc.h" +#include "math/sort.h" +#include "output/tab.h" /* Calculates the adjustment necessary for tie compensation */ static void @@ -147,7 +147,6 @@ mann_whitney_execute (const struct dataset *ds, -#include #include "gettext.h" #define _(msgid) gettext (msgid) @@ -212,27 +211,27 @@ show_ranks_box (const struct n_sample_test *nst, const struct mw *mwv) var_to_string (nst->vars[i])); tab_double (table, 1, column_headers + i, 0, - mw->n[0], 0); + mw->n[0], NULL, RC_OTHER); tab_double (table, 2, column_headers + i, 0, - mw->n[1], 0); + mw->n[1], NULL, RC_OTHER); tab_double (table, 3, column_headers + i, 0, - mw->n[1] + mw->n[0], 0); + mw->n[1] + mw->n[0], NULL, RC_OTHER); /* Mean Ranks */ tab_double (table, 4, column_headers + i, 0, - mw->rank_sum[0] / mw->n[0], 0); + mw->rank_sum[0] / mw->n[0], NULL, RC_OTHER); tab_double (table, 5, column_headers + i, 0, - mw->rank_sum[1] / mw->n[1], 0); + mw->rank_sum[1] / mw->n[1], NULL, RC_OTHER); /* Sum of Ranks */ tab_double (table, 6, column_headers + i, 0, - mw->rank_sum[0], 0); + mw->rank_sum[0], NULL, RC_OTHER); tab_double (table, 7, column_headers + i, 0, - mw->rank_sum[1], 0); + mw->rank_sum[1], NULL, RC_OTHER); } tab_submit (table); @@ -281,16 +280,16 @@ show_statistics_box (const struct n_sample_test *nst, const struct mw *mwv, bool var_to_string (nst->vars[i])); tab_double (table, 1, column_headers + i, 0, - mw->u, 0); + mw->u, NULL, RC_OTHER); tab_double (table, 2, column_headers + i, 0, - mw->w, 0); + mw->w, NULL, RC_OTHER); tab_double (table, 3, column_headers + i, 0, - mw->z, 0); + mw->z, NULL, RC_OTHER); tab_double (table, 4, column_headers + i, 0, - 2.0 * gsl_cdf_ugaussian_P (mw->z), 0); + 2.0 * gsl_cdf_ugaussian_P (mw->z), NULL, RC_PVALUE); } tab_submit (table);