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=6ac7167c8d636583024430e62b5b97ab5bcc1a08;hpb=17a93d686c5a26be3477b08f878cac491b6f6e17;p=pspp-builds.git diff --git a/src/math/linreg/predict.c b/src/math/linreg/predict.c index 6ac7167c..6562d321 100644 --- a/src/math/linreg/predict.c +++ b/src/math/linreg/predict.c @@ -19,7 +19,7 @@ */ #include -#include +#include #include /* @@ -30,8 +30,7 @@ */ double pspp_linreg_predict (const struct variable **predictors, - const union value **vals, - const void *c_, int n_vals) + const union value **vals, const void *c_, int n_vals) { const pspp_linreg_cache *c = c_; int i; @@ -51,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++) { @@ -86,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 void *c, int n_vals) + const union value *obs, const void *c, int n_vals) { double pred; double result;