projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove potentially misleading citation.
[pspp]
/
src
/
math
/
coefficient.c
diff --git
a/src/math/coefficient.c
b/src/math/coefficient.c
index eb2ee3174e42721e9b74147807453dc09f64caab..fe0cd43877f3ab57c71f95b8a4b43d30b63098ee 100644
(file)
--- a/
src/math/coefficient.c
+++ b/
src/math/coefficient.c
@@
-21,6
+21,7
@@
/*
Accessor functions for matching coefficients and variables.
*/
/*
Accessor functions for matching coefficients and variables.
*/
+#include <config.h>
#include <math/coefficient.h>
#include <math/linreg/linreg.h>
#include "src/math/design-matrix.h"
#include <math/coefficient.h>
#include <math/linreg/linreg.h>
#include "src/math/design-matrix.h"
@@
-71,7
+72,7
@@
pspp_coeff_init (struct pspp_coeff ** c, const struct design_matrix *X)
c[i]->v_info->v =
(const struct variable *) design_matrix_col_to_var (X, i);
c[i]->v_info->v =
(const struct variable *) design_matrix_col_to_var (X, i);
- if (
c[i]->v_info->v->type == ALPHA
)
+ if (
var_is_alpha (c[i]->v_info->v)
)
{
size_t k;
k = design_matrix_var_to_column (X, c[i]->v_info->v);
{
size_t k;
k = design_matrix_var_to_column (X, c[i]->v_info->v);
@@
-162,14
+163,14
@@
pspp_coeff_get_value (struct pspp_coeff *c,
{
return NULL;
}
{
return NULL;
}
- if (v
->type == NUMERIC
)
+ if (v
ar_is_numeric (v)
)
{
return NULL;
}
while (i < c->n_vars)
{
candidate = pspp_coeff_get_var (c, i);
{
return NULL;
}
while (i < c->n_vars)
{
candidate = pspp_coeff_get_var (c, i);
- if (v
->index == candidate->index
)
+ if (v
== candidate
)
{
return (c->v_info + i)->val;
}
{
return (c->v_info + i)->val;
}
@@
-201,7
+202,7
@@
pspp_linreg_get_coeff (const pspp_linreg_cache * c,
result = c->coeff[i];
tmp = pspp_coeff_get_var (result, 0);
result = c->coeff[i];
tmp = pspp_coeff_get_var (result, 0);
- while (tmp
->index != v->index
&& i < c->n_coeffs)
+ while (tmp
!= v
&& i < c->n_coeffs)
{
result = c->coeff[i];
tmp = pspp_coeff_get_var (result, 0);
{
result = c->coeff[i];
tmp = pspp_coeff_get_var (result, 0);
@@
-211,7
+212,7
@@
pspp_linreg_get_coeff (const pspp_linreg_cache * c,
{
return NULL;
}
{
return NULL;
}
- if (v
->type == NUMERIC
)
+ if (v
ar_is_numeric (v)
)
{
return result;
}
{
return result;
}
@@
-221,9
+222,9
@@
pspp_linreg_get_coeff (const pspp_linreg_cache * c,
If v is categorical, we need to ensure the coefficient
matches the VAL.
*/
If v is categorical, we need to ensure the coefficient
matches the VAL.
*/
- while (tmp
->index != v->index
&& i < c->n_coeffs
+ while (tmp
!= v
&& i < c->n_coeffs
&& compare_values (pspp_coeff_get_value (result, tmp),
&& compare_values (pspp_coeff_get_value (result, tmp),
- val, v
->width
))
+ val, v
ar_get_width (v)
))
{ /* FIX THIS */
i++;
result = c->coeff[i];
{ /* FIX THIS */
i++;
result = c->coeff[i];