# NOT RUN {
# }
# NOT RUN {
if (requireNamespace("tsibbledata")) {
library(tsibble)
beer_components <- tsibbledata::aus_production %>%
model(
prophet = prophet(Beer ~ season("year", 4, type = "multiplicative"))
) %>%
components()
beer_components
autoplot(beer_components)
library(ggplot2)
library(lubridate)
beer_components %>%
ggplot(aes(x = quarter(Quarter), y = year, group = year(Quarter))) +
geom_line()
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab