lung_deaths_male <- as_tsibble(mdeaths)
lung_deaths_female <- as_tsibble(fdeaths)
fit <- lung_deaths_male %>%
model(NNETAR(value))
report(fit)
fit %>%
refit(new_data = lung_deaths_female, reestimate = FALSE) %>%
report()
Run the code above in your browser using DataLab