/* Degrees of freedom */
- tab_text (t, 3, 1, TAB_RIGHT | TAT_PRINTF, "%g", c->dfm);
- tab_text (t, 3, 2, TAB_RIGHT | TAT_PRINTF, "%g", c->dfe);
- tab_text (t, 3, 3, TAB_RIGHT | TAT_PRINTF, "%g", c->dft);
+ tab_text_format (t, 3, 1, TAB_RIGHT, "%g", c->dfm);
+ tab_text_format (t, 3, 2, TAB_RIGHT, "%g", c->dfe);
+ tab_text_format (t, 3, 3, TAB_RIGHT, "%g", c->dft);
/* Mean Squares */
tab_double (t, 4, 1, TAB_RIGHT, msm, NULL);
}
lopts.get_depvar_mean_std = 1;
- lopts.get_indep_mean_std = xnmalloc (n_variables, sizeof (int));
+
indep_vars = xnmalloc (n_variables, sizeof *indep_vars);
for (k = 0; k < cmd->n_dependent; k++)
design_matrix_create (n_indep,
(const struct variable **) indep_vars,
n_data);
+ lopts.get_indep_mean_std = xnmalloc (X->m->size2, sizeof (int));
for (i = 0; i < X->m->size2; i++)
{
lopts.get_indep_mean_std[i] = 1;
}
models[k] = pspp_linreg_cache_alloc (dep_var, (const struct variable **) indep_vars,
- X->m->size1, X->m->size2);
+ X->m->size1, n_indep);
models[k]->depvar = dep_var;
/*
For large data sets, use QR decomposition.
gsl_vector_free (Y);
design_matrix_destroy (X);
+ free (lopts.get_indep_mean_std);
}
else
{
}
free (mom);
free (indep_vars);
- free (lopts.get_indep_mean_std);
casereader_destroy (input);
return true;