aはある時系列データ（tsオブジェクト）とする
h <- HoltWinters(a) plot(h)
原信号、トレンド成分、周期成分、残渣成分に分けてプロットする
decomp <- ts.union(y=h$x,Level=h$fitted[,"level"]+h$fitted[,"trend"],Season=h$fitted[,"season"],Residuals=residuals(h)) plot(decomp)
aはある時系列データ（tsオブジェクト）とする
h <- HoltWinters(a) plot(h)
原信号、トレンド成分、周期成分、残渣成分に分けてプロットする
decomp <- ts.union(y=h$x,Level=h$fitted[,"level"]+h$fitted[,"trend"],Season=h$fitted[,"season"],Residuals=residuals(h)) plot(decomp)