Я думаю, здесь есть что-то странное. Например, следующий код дает одинаковые значения для остатков и нововведений: fit <- us_change %>% model(ARIMA(Consumption ~ Income)) %>% augment() Кажется, что функция augment() извлекает...