Я думаю, здесь есть что-то странное. Например, следующий код дает одинаковые значения для остатков и нововведений:
fit <- us_change %>%
model(ARIMA(Consumption ~ Income)) %>%
augment()
Кажется, что функция augment()
извлекает только значения инноваций и использует их также для остатков из регрессии. Это видно, когда мы извлекаем остатки и инновации с помощью residuals()
:
bind_rows(
`Regression Errors` = as_tibble(residuals(fit, type = "regression")),
`ARIMA Errors` = as_tibble(residuals(fit, type = "innovation")),
.id = "type"
)
Тогда остатки и нововведения разные как и должны быть.