我一直在玩预测、寓言和 tibble,并且正在研究 Rob Hyndman 的示例HERE。当我到达“auscafe”示例的结尾时,出现的自动绘图仅用于预测,而不是原始绘图加上所示(和预期)的预测。
我在这里想念什么?
library(fpp2)
library(tsibble)
library(fable)
data("auscafe")
# Make auscafe a tsibble and confirm
cafe <- as_tsibble(auscafe)
cafe
# Take a look
autoplot(cafe)
# ETS model noodling after Hyndman's 2018 presentation
# https://robjhyndman.com/seminars/isf-fable/
cafe %>% ETS(value) %>% summary
cafe %>% ETS(value) %>% forecast() %>% summary()
cafe %>% ETS(value) %>% forecast() %>% summary(level=90)
# See Hyndman slide 11: He gets the original series PLUS the forecast
# When I run this, I get a plot of ONLY the forecast,
# i.e., 2008-07 to 2010-07
cafe %>% ETS(value) %>% forecast() %>% autoplot()