removed double-counted sample size

[pspp-builds.git] / src / oneway.q

diff --git a/src/oneway.q b/src/oneway.q
index 27703055d704e709ea0d2bdcc244d0a7e46da52c..8c9c768a87bc6266e5b849521c8e6c0db3cbf26b 100644 (file)
--- a/src/oneway.q
+++ b/src/oneway.q
@@ -43,6 +43,10 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
 #include "group_proc.h"
 #include "group.h"
 #include "levene.h"
+
+#include "gettext.h"
+#define _(msgid) gettext (msgid)
+
 /* (headers) */
 
 /* (specification)
@@ -83,7 +87,7 @@ static int ostensible_number_of_groups=-1;
 
 
 /* Function to use for testing for missing values */
-static is_missing_func value_is_missing;
+static is_missing_func *value_is_missing;
 
 
 static void run_oneway(const struct casefile *cf, void *_mode);
@@ -115,9 +119,9 @@ cmd_oneway(void)
 
   /* If /MISSING=INCLUDE is set, then user missing values are ignored */
   if (cmd.incl == ONEWAY_INCLUDE ) 
-    value_is_missing = is_system_missing;
+    value_is_missing = mv_is_value_system_missing;
   else
-    value_is_missing = is_missing;
+    value_is_missing = mv_is_value_missing;
 
   /* What statistics were requested */
   if ( cmd.sbc_statistics ) 
@@ -423,7 +427,7 @@ show_descriptives(void)
 
       const char *s = var_to_string(vars[v]);
 
-      struct group_statistics **gs_array = hsh_sort(gp->group_hash);
+      struct group_statistics *const *gs_array = hsh_sort(gp->group_hash);
       int count = 0;
 
       tab_text (t, 0, row, TAB_LEFT | TAT_TITLE, s);
@@ -574,7 +578,7 @@ show_contrast_coeffs(short *bad_contrast)
   int n_rows = 2 + cmd.sbc_contrast;
   union value *group_value;
   int count = 0 ;      
-  void **group_values ;
+  void *const *group_values ;
 
   struct tab_table *t;
 
@@ -699,7 +703,7 @@ show_contrast_tests(short *bad_contrast)
          struct group_proc *grp_data = group_proc_get (vars[v]);
          struct hsh_table *group_hash = grp_data->group_hash;
 
-         void **group_stat_array;
+         void *const *group_stat_array;
 
          double T;
          double std_error_contrast ;
@@ -909,7 +913,7 @@ run_oneway(const struct casefile *cf, void *cmd_)
       const union value *indep_val = case_data (&c, indep_var->fv);
 
       /* Deal with missing values */
-      if ( value_is_missing(indep_val,indep_var) )
+      if ( value_is_missing(&indep_var->miss, indep_val) )
        continue;
 
       /* Skip the entire case if /MISSING=LISTWISE is set */
@@ -920,7 +924,7 @@ run_oneway(const struct casefile *cf, void *cmd_)
              const struct variable *v = vars[i];
              const union value *val = case_data (&c, v->fv);
 
-             if (value_is_missing(val,v) )
+             if (value_is_missing(&v->miss, val) )
                break;
            }
          if ( i != n_vars ) 
@@ -960,7 +964,7 @@ run_oneway(const struct casefile *cf, void *cmd_)
              hsh_insert ( group_hash, (void *) gs );
            }
          
-         if (! value_is_missing(val,v) )
+         if (! value_is_missing(&v->miss, val) )
            {
              struct group_statistics *totals = &gp->ugs;