From e5b4fba5528763d7d595ed99846d08b27a14d1ee Mon Sep 17 00:00:00 2001 From: Jason Stover Date: Sat, 8 Apr 2006 02:47:54 +0000 Subject: [PATCH] adjustments to prediction and residual arguments --- src/math/linreg/predict.c | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/src/math/linreg/predict.c b/src/math/linreg/predict.c index fdd94097..a4bbcf9d 100644 --- a/src/math/linreg/predict.c +++ b/src/math/linreg/predict.c @@ -29,8 +29,8 @@ in the same order. */ double -pspp_linreg_predict (const struct variable *predictors, - const union value *vals, +pspp_linreg_predict (const struct variable **predictors, + const union value **vals, const pspp_linreg_cache *c, int n_vals) { @@ -54,12 +54,13 @@ pspp_linreg_predict (const struct variable *predictors, the caller passed us inadequate information, such as too few or too many values. */ + n_vals++; for (i = 1; i < c->n_coeffs && i < n_vals; i++) { - tmp = pspp_linreg_coeff_get_est (pspp_linreg_get_coeff (c, predictors + i, vals + i)); - if ((predictors + i)->type == NUMERIC) + tmp = pspp_linreg_coeff_get_est (pspp_linreg_get_coeff (c, predictors[i], vals[i])); + if (predictors[i]->type == NUMERIC) { - tmp *= (vals + i)->f; + tmp *= vals[i]->f; } result += tmp; } @@ -68,7 +69,7 @@ pspp_linreg_predict (const struct variable *predictors, double pspp_linreg_residual (const struct variable *predictors, - const union value *vals, + const union value **vals, const union value *obs, const pspp_linreg_cache *c, int n_vals) -- 2.30.2