#include "group_proc.h"
#include "group.h"
#include "levene.h"
+
+#include "gettext.h"
+#define _(msgid) gettext (msgid)
+
/* (headers) */
/* (specification)
/* 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);
/* 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 )
struct hsh_iterator g;
struct group_statistics *gs;
double ssa=0;
-
+ const char *s = var_to_string(vars[i]);
for (gs = hsh_first (group_hash,&g);
gs != 0;
ssa -= ( totals->sum * totals->sum ) / totals->n ;
- const char *s = var_to_string(vars[i]);
-
tab_text (t, 0, i * 3 + 1, TAB_LEFT | TAT_TITLE, s);
tab_text (t, 1, i * 3 + 1, TAB_LEFT | TAT_TITLE, _("Between Groups"));
tab_text (t, 1, i * 3 + 2, TAB_LEFT | TAT_TITLE, _("Within Groups"));
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);
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;
double coef_msq = 0.0;
struct group_proc *grp_data = group_proc_get (vars[v]);
struct hsh_table *group_hash = grp_data->group_hash;
- struct group_statistics *gs;
- void **group_stat_array;
+
+ void *const *group_stat_array;
double T;
double std_error_contrast ;
for (ci = 0 ; ci < hsh_count(group_hash) ; ++ci)
{
- gs = group_stat_array[ci];
-
- const double coef = subc_list_double_at(&cmd.dl_contrast[i],ci);
+ const double coef = subc_list_double_at(&cmd.dl_contrast[i], ci);
+ struct group_statistics *gs = group_stat_array[ci];
+
const double winv = (gs->std_dev * gs->std_dev) / gs->n;
contrast_value += coef * gs->mean;
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 */
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 )
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;