projects
/
pspp-builds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix bug 19581
[pspp-builds.git]
/
src
/
math
/
levene.c
diff --git
a/src/math/levene.c
b/src/math/levene.c
index f5ed0568f1721558204c63f230103ff3d5bd51b0..a325138b14517198eeb71e8204c60472a8ba26c3 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.
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
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as
@@
-66,13
+65,13
@@
struct levene_info
struct t_test_proc **group_stats;
/* The independent variable */
struct t_test_proc **group_stats;
/* The independent variable */
- struct variable *v_indep;
+
const
struct variable *v_indep;
/* Number of dependent variables */
size_t n_dep;
/* The dependent variables */
/* Number of dependent variables */
size_t n_dep;
/* The dependent variables */
- struct variable **v_dep;
+
const
struct variable **v_dep;
/* Filter for missing values */
struct casefilter *filter;
/* Filter for missing values */
struct casefilter *filter;
@@
-95,7
+94,8
@@
static void levene2_postcalc (void *);
void
levene(const struct dictionary *dict,
const struct casefile *cf,
void
levene(const struct dictionary *dict,
const struct casefile *cf,
- struct variable *v_indep, size_t n_dep, struct variable **v_dep,
+ const struct variable *v_indep, size_t n_dep,
+ const struct variable **v_dep,
struct casefilter *filter)
{
struct casereader *r;
struct casefilter *filter)
{
struct casereader *r;
@@
-160,7
+160,7
@@
levene_precalc (const struct levene_info *l)
for(i = 0; i < l->n_dep ; ++i )
{
for(i = 0; i < l->n_dep ; ++i )
{
- struct variable *var = l->v_dep[i];
+
const
struct variable *var = l->v_dep[i];
struct group_proc *gp = group_proc_get (var);
struct group_statistics *gs;
struct hsh_iterator hi;
struct group_proc *gp = group_proc_get (var);
struct group_statistics *gs;
struct hsh_iterator hi;
@@
-187,7
+187,7
@@
levene_calc (const struct dictionary *dict, const struct ccase *c,
{
size_t i;
bool warn = false;
{
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);
struct group_statistics key;
double weight = dict_get_case_weight (dict, c, &warn);
@@
-195,10
+195,10
@@
levene_calc (const struct dictionary *dict, const struct ccase *c,
for (i = 0; i < l->n_dep; ++i)
{
for (i = 0; i < l->n_dep; ++i)
{
- struct variable *var = l->v_dep[i];
+
const
struct variable *var = l->v_dep[i];
struct group_proc *gp = group_proc_get (var);
double levene_z;
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 );
struct group_statistics *gs;
gs = hsh_find(gp->group_hash,(void *) &key );
@@
-255,7
+255,7
@@
levene2_precalc (struct levene_info *l)
struct hsh_iterator hi;
struct group_statistics *g;
struct hsh_iterator hi;
struct group_statistics *g;
- struct variable *var = l->v_dep[v] ;
+
const
struct variable *var = l->v_dep[v] ;
struct hsh_table *hash = group_proc_get (var)->group_hash;
struct hsh_table *hash = group_proc_get (var)->group_hash;
@@
-278,7
+278,7
@@
levene2_calc (const struct dictionary *dict, const struct ccase *c,
double weight = dict_get_case_weight (dict, c, &warn);
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;
struct group_statistics key;
key.id = *gv;
@@
-286,8
+286,8
@@
levene2_calc (const struct dictionary *dict, const struct ccase *c,
for (i = 0; i < l->n_dep; ++i)
{
double levene_z;
for (i = 0; i < l->n_dep; ++i)
{
double levene_z;
- struct variable *var = l->v_dep[i] ;
- const union value *v = case_data (c, var
->fv
);
+
const
struct variable *var = l->v_dep[i] ;
+ const union value *v = case_data (c, var);
struct group_statistics *gs;
gs = hsh_find(group_proc_get (var)->group_hash,(void *) &key );
struct group_statistics *gs;
gs = hsh_find(group_proc_get (var)->group_hash,(void *) &key );
@@
-320,7
+320,7
@@
levene2_postcalc (void *_l)
struct hsh_iterator hi;
struct group_statistics *g;
struct hsh_iterator hi;
struct group_statistics *g;
- struct variable *var = l->v_dep[v] ;
+
const
struct variable *var = l->v_dep[v] ;
struct group_proc *gp = group_proc_get (var);
struct hsh_table *hash = gp->group_hash;
struct group_proc *gp = group_proc_get (var);
struct hsh_table *hash = gp->group_hash;