projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Charts: internationalise representation of scientific format.
[pspp]
/
src
/
math
/
linreg.c
diff --git
a/src/math/linreg.c
b/src/math/linreg.c
index 92617aeadff30b091ad41a2e1c8f88cf4ce1986d..147ff272cd54a4fee2e8bcb7aa83da3bea2baf05 100644
(file)
--- a/
src/math/linreg.c
+++ b/
src/math/linreg.c
@@
-100,13
+100,13
@@
linreg_alloc (const struct variable *depvar, const struct variable **indep_vars,
Default settings.
*/
c->method = LINREG_SWEEP;
Default settings.
*/
c->method = LINREG_SWEEP;
- c->pred = NULL;
- c->resid = NULL;
c->refcnt = 1;
c->refcnt = 1;
+
return c;
}
return c;
}
+
void
linreg_ref (linreg *c)
{
void
linreg_ref (linreg *c)
{
@@
-116,7
+116,7
@@
linreg_ref (linreg *c)
void
linreg_unref (linreg *c)
{
void
linreg_unref (linreg *c)
{
- if (
c &&
--c->refcnt == 0)
+ if (--c->refcnt == 0)
{
gsl_vector_free (c->indep_means);
gsl_vector_free (c->indep_std);
{
gsl_vector_free (c->indep_means);
gsl_vector_free (c->indep_std);
@@
-247,7
+247,7
@@
linreg_residual (const linreg *c, double obs, const double *vals, size_t n_vals)
/*
Mean of the independent variable.
*/
/*
Mean of the independent variable.
*/
-double linreg_get_indep_variable_mean (linreg *c, size_t j)
+double linreg_get_indep_variable_mean (
const
linreg *c, size_t j)
{
assert (c != NULL);
return gsl_vector_get (c->indep_means, j);
{
assert (c != NULL);
return gsl_vector_get (c->indep_means, j);
@@
-390,7
+390,7
@@
double linreg_intercept (const linreg *c)
return c->intercept;
}
return c->intercept;
}
-gsl_matrix *
+
const
gsl_matrix *
linreg_cov (const linreg *c)
{
return c->cov;
linreg_cov (const linreg *c)
{
return c->cov;
@@
-450,7
+450,7
@@
linreg_set_depvar_mean (linreg *c, double x)
}
double
}
double
-linreg_get_depvar_mean (linreg *c)
+linreg_get_depvar_mean (
const
linreg *c)
{
return c->depvar_mean;
}
{
return c->depvar_mean;
}