77 |
enum lev_missing missing; |
enum lev_missing missing; |
78 |
|
|
79 |
/* Function to test for missing values */ |
/* Function to test for missing values */ |
80 |
is_missing_func is_missing; |
is_missing_func *is_missing; |
|
|
|
81 |
}; |
}; |
82 |
|
|
83 |
/* First pass */ |
/* First pass */ |
201 |
struct variable *v = l->v_dep[i]; |
struct variable *v = l->v_dep[i]; |
202 |
const union value *val = case_data (c, v->fv); |
const union value *val = case_data (c, v->fv); |
203 |
|
|
204 |
if (l->is_missing(val,v) ) |
if (l->is_missing (&v->miss, val) ) |
205 |
{ |
{ |
206 |
return 0; |
return 0; |
207 |
} |
} |
224 |
if ( 0 == gs ) |
if ( 0 == gs ) |
225 |
continue ; |
continue ; |
226 |
|
|
227 |
if ( ! l->is_missing(v,var)) |
if ( ! l->is_missing(&var->miss, v)) |
228 |
{ |
{ |
229 |
levene_z= fabs(v->f - gs->mean); |
levene_z= fabs(v->f - gs->mean); |
230 |
lz[i].grand_total += levene_z * weight; |
lz[i].grand_total += levene_z * weight; |
308 |
struct variable *v = l->v_dep[i]; |
struct variable *v = l->v_dep[i]; |
309 |
const union value *val = case_data (c, v->fv); |
const union value *val = case_data (c, v->fv); |
310 |
|
|
311 |
if (l->is_missing(val,v) ) |
if (l->is_missing(&v->miss, val) ) |
312 |
{ |
{ |
313 |
return 0; |
return 0; |
314 |
} |
} |
329 |
if ( 0 == gs ) |
if ( 0 == gs ) |
330 |
continue; |
continue; |
331 |
|
|
332 |
if ( ! l->is_missing(v,var) ) |
if ( ! l->is_missing (&var->miss, v) ) |
333 |
{ |
{ |
334 |
levene_z = fabs(v->f - gs->mean); |
levene_z = fabs(v->f - gs->mean); |
335 |
lz_denominator[i] += weight * pow2(levene_z - gs->lz_mean); |
lz_denominator[i] += weight * pow2(levene_z - gs->lz_mean); |