/* PSPP - a program for statistical analysis.
- Copyright (C) 2008 Free Software Foundation, Inc.
+ Copyright (C) 2008, 2009 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
free (c->items);
moments1_destroy (c->total);
- for (x = 0 ; x < c->n_items; ++x)
- moments1_destroy (c->m[x]);
+
+ if ( c->m)
+ for (x = 0 ; x < c->n_items; ++x)
+ moments1_destroy (c->m[x]);
+
free (c->m);
}
{
int i;
int si;
- struct ccase c;
+ struct ccase *c;
casenumber n_missing ;
casenumber n_valid = 0;
s, NULL);
}
- for (; casereader_read (input, &c); case_destroy (&c))
+ for (; (c = casereader_read (input)) != NULL; case_unref (c))
{
double weight = 1.0;
n_valid ++;
struct cronbach *s = &rel->sc[si];
for (i = 0 ; i < s->n_items ; ++i )
- moments1_add (s->m[i], case_data (&c, s->items[i])->f, weight);
+ moments1_add (s->m[i], case_data (c, s->items[i])->f, weight);
- moments1_add (s->total, case_data_idx (&c, s->totals_idx)->f, weight);
+ moments1_add (s->total, case_data_idx (c, s->totals_idx)->f, weight);
}
}
casereader_destroy (input);
tab_float (tbl, 3, 8, TAB_RIGHT, g, 8, 3);
tmp = (1.0 - r*r) * rel->sc[1].n_items * rel->sc[2].n_items /
- SQR (rel->sc[0].n_items);
+ pow2 (rel->sc[0].n_items);
- uly = sqrt( SQR (SQR (r)) + 4 * SQR (r) * tmp);
- uly -= SQR (r);
+ uly = sqrt( pow4 (r) + 4 * pow2 (r) * tmp);
+ uly -= pow2 (r);
uly /= 2 * tmp;
tab_float (tbl, 3, 7, TAB_RIGHT, uly, 8, 3);