- return 0;
-}
-
-
-static void
-levene_postcalc (void *_l)
-{
- size_t v;
-
- struct levene_info *l = (struct levene_info *) _l;
-
- for (v = 0; v < l->n_dep; ++v)
- {
- /* This is Z_LL */
- lz[v].grand_mean = lz[v].grand_total / lz[v].total_n ;
- }
-
-
-}
-
-
-
-/* The denominator for the expression for the Levene */
-static double *lz_denominator = 0;
-
-static void
-levene2_precalc (struct levene_info *l)
-{
- size_t v;
-
- lz_denominator = xnmalloc (l->n_dep, sizeof *lz_denominator);
-
- /* This stuff could go in the first post calc . . . */
- for (v = 0;
- v < l->n_dep;
- ++v)
- {
- struct hsh_iterator hi;
- struct group_statistics *g;
-
- struct variable *var = l->v_dep[v] ;
- struct hsh_table *hash = group_proc_get (var)->group_hash;
-