if (FALSE) { # requireNamespace("fable", quietly = TRUE)
library(fable)
fit <- as_tsibble(mdeaths) %>%
model(ETS(value ~ error("M") + trend("A") + season("A")))
fit %>% report()
fit %>%
refit(as_tsibble(fdeaths)) %>%
report(reinitialise = TRUE)
}
Run the code above in your browser using DataLab