Understanding Time Series Analysis with R - Snippet 11

time-series-analysis-s-11.R

dfOut <- MultForecast(4, data, 2)

dfOut %>%
  ggplot(aes(x=t, y=sales))+
  geom_line(col = 'light blue')+
  geom_point()+
  geom_line(aes(x=t, y=predictions), col = 'orange')+
  geom_point(aes(x=t, y=predictions), col = 'orange')+
  xlab('Time')+
  ylab('Sales')+
  theme_minimal()