R Holt-Winters预测列车/测试

Question

我正在寻找一个简单的示例(或链接到一个)，它使用基础Holt-Winters或R中的预测包中的一个来绘制与预测相同的范围内的实际数据。

我见过许多展示实际/拟合在一起的示例，或者实际“后面跟着”预测的示例，但我找不到一个实际/预测一起运行的代码示例。

我这样做的原因是使用实际数据(训练)的子集创建预测，然后放入完整的数据集，这样我就可以显示预测的实际效果。希望这是有意义的，并提前感谢任何帮助！

Answer 1

使用dygraph包找到了一个非常简单的解决方案。这可能是一件简单的事情，但把我的问题/答案留在这里，以防其他新手遇到并试图做同样的事情：

我从这个链接(第二张图)中获取了代码：https://rstudio.github.io/dygraphs/gallery-upper-lower-bars.html

并修改为：

library(dygraphs)
library(magrittr)

#hw <- HoltWinters(ldeaths)
hw <- HoltWinters(window(ldeaths, 1974, c(1976,12)))        #subset timeseries to first 3 years in ldeath (train data)
p <- predict(hw, n.ahead = 36, prediction.interval = TRUE)  #predict for the last 3 years in ldeath (test data)
all <- cbind(ldeaths, p) #we add full ldeaths into graph to see test data (1977,78,79) against the prediction

dygraph(all, "Deaths from Lung Disease (UK)") %>%
  dySeries("ldeaths", label = "Actual") %>%
  dySeries(c("p.lwr", "p.fit", "p.upr"), label = "Predicted")