R中的HoltWinters预报

Question

我有一个时间序列除以30天和小时，所以720值(24h*30)。

​

​

每个星期六和星期天，正如你所看到的，我的值是时间序列中的最低值。(从星期五开始)。

我把“火车”的时间序列除以3周，第4周的时间序列除以1。前3周应用HoltWinters方法，第4周进行预测，并将观测值与模拟值进行比较。

Test<-function(ID,Unique,i){
  DfIn<-ID$V4[1:552]
  DfReal<-ID$V4[553:720]
  x<-ts(data=DfIn,frequency=24)
  HW<-HoltWinters(x,beta = FALSE)
  Pred<-forecast.HoltWinters(HW,168)
  print("Accuracy")
  print(accuracy(Pred,DfReal))
  Box1<-Box.test(Pred$residuals,type="Ljung-Box")
  P<-Box1$p.value
  return (P)
}

这是比较

其中蓝线是模拟值，红线是观测值。

问题是，当时间序列在周六和周日获得最低值时，为什么模拟值不遵循红线呢？是否有一种方法可以获得更高的准确性，让预测更接近观察到的结果？

更新：

​

​

Answer 1

你可以试试

x<-ts(data=DfIn,frequency=7*24)