/[pspp]/pspp/src/levene.c
ViewVC logotype

Diff of /pspp/src/levene.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by jmd, Fri Apr 29 01:02:15 2005 UTC revision 1.18 by blp, Sun Aug 7 04:39:28 2005 UTC
# Line 77  struct levene_info Line 77  struct levene_info
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 */
# Line 202  levene_calc (const struct ccase *c, void Line 201  levene_calc (const struct ccase *c, void
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              }              }
# Line 225  levene_calc (const struct ccase *c, void Line 224  levene_calc (const struct ccase *c, void
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;
# Line 309  levene2_calc (const struct ccase *c, voi Line 308  levene2_calc (const struct ccase *c, voi
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              }              }
# Line 330  levene2_calc (const struct ccase *c, voi Line 329  levene2_calc (const struct ccase *c, voi
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);

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26