lung_deaths_male <- as_tsibble(mdeaths)
lung_deaths_female <- as_tsibble(fdeaths)
fit <- lung_deaths_male %>%
model(AR(value ~ 1 + order(10)))
report(fit)
fit %>%
refit(lung_deaths_female) %>%
report()
Run the code above in your browser using DataLab