lung_deaths_male <- as_tsibble(mdeaths)
lung_deaths_female <- as_tsibble(fdeaths)
fit <- lung_deaths_male %>%
model(TSLM(value ~ trend() + season()))
report(fit)
fit %>%
refit(lung_deaths_female) %>%
report()
Run the code above in your browser using DataLab