Default settings.
*/
c->method = LINREG_SWEEP;
- c->pred = NULL;
- c->resid = NULL;
c->refcnt = 1;
+
return c;
}
+
void
linreg_ref (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);
/*
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);
return c->intercept;
}
-gsl_matrix *
+const gsl_matrix *
linreg_cov (const linreg *c)
{
return c->cov;
}
double
-linreg_get_depvar_mean (linreg *c)
+linreg_get_depvar_mean (const linreg *c)
{
return c->depvar_mean;
}