R的Holt-Winters预测

Question

我正在尝试在R中执行Holt-Winters预测并获得关于测试数据的预测，但最终的预测图看起来非常错误。

我要去哪里错了，为什么预测如此疯狂？

数据：

from ..items import KmssItem

Answer 1

黑子数据实际上是一个时间序列数据，这意味着它具有一个与之关联的时间段。如果我们使用as.data.frame，则会将其转换为向量，并且信息会丢失。因此，我们保留此时间序列数据，对其进行子集化并进行预测。

此外，HoltWinters()需要时间序列数据集作为输入。

data("sunspots")

data <- sunspots


smp_size <- 0.80
train_ind <- length(data)/12 * smp_size
train = window(data,start = 1749, end = c(1749+train_ind,12))
test = window(data,start = 1749+train_ind+1,end = c(1749+length(data)/12,12))

fit <- HoltWinters(train)

plot(forecast(fit,h = length(test)))
lines(test)