X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fmath%2Flinreg%2Fpredict.c;h=6562d321e6c18e465c4aab41b0e396b88ac69fc9;hb=2e5ba1599578af2f13aa483db3ee49d591aed42f;hp=49e24434b5ff5cca2ae5ae1d95ecffc335b06040;hpb=762f47ec7fcfe1bfd9a404dae6ce285e61b1df57;p=pspp-builds.git diff --git a/src/math/linreg/predict.c b/src/math/linreg/predict.c index 49e24434..6562d321 100644 --- a/src/math/linreg/predict.c +++ b/src/math/linreg/predict.c @@ -19,7 +19,7 @@ */ #include -#include +#include #include /* @@ -30,9 +30,9 @@ */ double pspp_linreg_predict (const struct variable **predictors, - const union value **vals, - const pspp_linreg_cache * c, int n_vals) + const union value **vals, const void *c_, int n_vals) { + const pspp_linreg_cache *c = c_; int i; int j; const struct pspp_linreg_coeff **found; @@ -50,13 +50,13 @@ pspp_linreg_predict (const struct variable **predictors, return c->depvar_mean; } found = xnmalloc (c->n_coeffs, sizeof (*found)); - *found = c->coeff; - result = c->coeff->estimate; /* Intercept. */ + *found = c->coeff[0]; + result = c->coeff[0]->estimate; /* Intercept. */ /* - The loops guard against the possibility that the caller passed us - inadequate information, such as too few or too many values, or - a redundant list of variable names. + The loops guard against the possibility that the caller passed us + inadequate information, such as too few or too many values, or + a redundant list of variable names. */ for (j = 0; j < n_vals; j++) { @@ -85,8 +85,7 @@ pspp_linreg_predict (const struct variable **predictors, double pspp_linreg_residual (const struct variable **predictors, const union value **vals, - const union value *obs, - const pspp_linreg_cache * c, int n_vals) + const union value *obs, const void *c, int n_vals) { double pred; double result;