- if (vars[i]->type == NUMERIC)
- {
- est[i] = xmalloc (sizeof **est);
- est[i]->variable = vars[i];
- est[i]->mean = 0.0;
- est[i]->variance = 0.0;
- est[i]->cov = xnmalloc (lag, sizeof (*est[i]->cov));
- est[i]->scale = xnmalloc (lag, sizeof (*est[i]->scale));
- est[i]->coeff = xnmalloc (lag, sizeof (*est[i]->coeff));
- for (j = 0; j < lag; j++)
- {
- est[i]->coeff[j] = xmalloc (sizeof (*(est[i]->coeff + j)));
- }
- }
- else
- {
- *n_vars--;
-/* msg (MW, _("Cannot compute autocovariance for a non-numeric variable %s"), */
-/* var_to_string (vars[i])); */
- }
+ est[i] = xmalloc (sizeof *est[i]);
+/* est[i]->variable = vars[i]; */
+ innovations_struct_init (est[i], lag);