if (FALSE) { # requireNamespace("fable", quietly = TRUE)
library(fable)
library(tsibbledata)
# Forecasting with an ETS(M,Ad,A) model to Australian beer production
aus_production %>%
model(ets = ETS(log(Beer) ~ error("M") + trend("Ad") + season("A"))) %>%
components() %>%
autoplot()
}
Run the code above in your browser using DataLab