Removed my authorship lines.

[pspp-builds.git] / src / math / levene.c

diff --git a/src/math/levene.c b/src/math/levene.c
index f5ed0568f1721558204c63f230103ff3d5bd51b0..acb1cebfc0a1b07c2cfdebb9f0108d15395429ee 100644 (file)
--- a/src/math/levene.c
+++ b/src/math/levene.c
@@ -2,7 +2,6 @@
    Computes Levene test  statistic.
 
    Copyright (C) 2004 Free Software Foundation, Inc.
-   Written by John Darrington <john@darrington.wattle.id.au>
 
    This program is free software; you can redistribute it and/or
    modify it under the terms of the GNU General Public License as
@@ -187,7 +186,7 @@ levene_calc (const struct dictionary *dict, const struct ccase *c,
 {
   size_t i;
   bool warn = false;
-  const union value *gv = case_data (c, l->v_indep->fv);
+  const union value *gv = case_data (c, l->v_indep);
   struct group_statistics key;
   double weight = dict_get_case_weight (dict, c, &warn); 
 
@@ -198,7 +197,7 @@ levene_calc (const struct dictionary *dict, const struct ccase *c,
       struct variable *var = l->v_dep[i];
       struct group_proc *gp = group_proc_get (var);
       double levene_z;
-      const union value *v = case_data (c, var->fv);
+      const union value *v = case_data (c, var);
       struct group_statistics *gs;
 
       gs = hsh_find(gp->group_hash,(void *) &key );
@@ -278,7 +277,7 @@ levene2_calc (const struct dictionary *dict, const struct ccase *c,
 
   double weight = dict_get_case_weight (dict, c, &warn); 
 
-  const union value *gv = case_data (c, l->v_indep->fv);
+  const union value *gv = case_data (c, l->v_indep);
   struct group_statistics key;
 
   key.id = *gv;
@@ -287,7 +286,7 @@ levene2_calc (const struct dictionary *dict, const struct ccase *c,
     {
       double levene_z;
       struct variable *var = l->v_dep[i] ;
-      const union value *v = case_data (c, var->fv);
+      const union value *v = case_data (c, var);
       struct group_statistics *gs;
 
       gs = hsh_find(group_proc_get (var)->group_hash,(void *) &key );