us_change_future <- new_data(us_change, 8) |> mutate(Income = mean(us_change$Income))
forecast(fit, new_data = us_change_future) |> autoplot(us_change) + labs(y = "Percentage change")