#include "command.h"
#include "lexer.h"
#include "error.h"
-#include "approx.h"
#include "magic.h"
#include "stats.h"
#include "som.h"
/* Data pass! */
bad_weight = 0;
- procedure (precalc, calc, postcalc, NULL);
+ procedure_with_splits (precalc, calc, postcalc, NULL);
if (bad_weight)
msg (SW, _("At least one case in the data file had a weight value "
/* Transformation function to calculate Z-scores. */
static int
-descriptives_trns_proc (struct trns_header * trns, struct ccase * c)
+descriptives_trns_proc (struct trns_header * trns, struct ccase * c,
+ int case_num UNUSED)
{
struct descriptives_trns *t = (struct descriptives_trns *) trns;
struct dsc_z_score *z;
struct variable *d;
t->z[count].s = v;
- t->z[count].d = d = dict_create_var (default_dict,
- v->p.dsc.zname, 0);
- assert (d != NULL);
+ t->z[count].d = d = dict_create_var_assert (default_dict,
+ v->p.dsc.zname, 0);
+ d->init = 0;
if (v->label)
{
d->label = xmalloc (strlen (v->label) + 12);
}
t->z[count].mean = v->p.dsc.stats[dsc_mean];
t->z[count].std_dev = v->p.dsc.stats[dsc_stddev];
- if (t->z[count].std_dev == SYSMIS
- || approx_eq (t->z[count].std_dev, 0.0))
+ if (t->z[count].std_dev == SYSMIS || t->z[count].std_dev == 0.0)
t->z[count].mean = SYSMIS;
count++;
}