r - R での HoltWinters 予測

Question

時系列が 30 日と時間に分割されているため、720 の値 (24h*30) になります。

ご覧のとおり、毎週土曜日と日曜日は、時系列で最も低い値を持っています。（金曜日から始まります）。

時系列を「電車」で3週、テストで1週、4週で分けました。最初の 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)
}

青線がシミュレーション値、赤線が観測値 の比較です。

問題は、時系列が土曜日と日曜日に最低値を取得したときに、シミュレートされた値が赤い線に従わないのはなぜですか? 精度を高め、予測を観測に近づける方法はありますか?

アップデート：