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