Я играл с прогнозами, баснями и тиблами и работал над примерами Роба Хайндмана ЗДЕСЬ < / а>. Когда я дохожу до конца примера «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()