-/*
- Read the first MAX_LAG cases.
- */
-static bool
-innovations_init_cases (struct casereader *r, struct ccase **inn_cs, size_t max_lag)
-{
- bool value = true;
- size_t lag = 0;
-
- assert (r != NULL);
- assert (inn_cs != NULL);
- while (value && lag < max_lag)
- {
- assert (inn_cs[lag] != NULL);
- value = casereader_read (r, inn_cs[lag]);
- lag++;
- }
- return value;
-}
-
-/*
- Read one case and update C, which contains the last MAX_LAG cases.
- */
-static bool
-innovations_update_cases (struct casereader *r, struct ccase **c, size_t max_lag)
-{
- size_t lag;
- bool value = false;
-
- for (lag = 0; lag < max_lag - 1; lag++)
- {
- c[lag] = c[lag+1];
- }
- value = casereader_read (r, c[lag]);
- return value;
-}
-static void
-get_covariance (size_t n_vars, const struct casefile *cf,