if (requireNamespace("fable", quietly = TRUE)) {
library(fable)
library(tsibble)
library(dplyr)
tsibbledata::aus_retail %>%
filter(
State == "Victoria",
Industry == "Cafes, restaurants and catering services"
) %>%
model(ARIMA(Turnover ~ pdq(0,1,1) + PDQ(0,1,1))) %>%
gg_arma()
}
Run the code above in your browser using DataLab