在 R 中模拟时间序列

如何解决在 R 中模拟时间序列

我正在尝试在 R 中模拟这个时间序列：Zt =7+0.5t+3Cos?π6*t?+εt 其中 εt ∼ IID N(0,1)

在绘制我的时间序列后，我想对时间序列进行简单的双重平滑和模型参数的估计。

这是我尝试做的

  set.seed(1000)
t <- seq_len(120)
x <- 7 + t/2 + 3*cos(6*t*pi/10) + rnorm(120)
plot.ts(x)
simplesmoo <- HoltWinters(x,gamma=FALSE)
simplesmoo


Call:
HoltWinters(x = x,gamma = FALSE)

Smoothing parameters:
 alpha: 0.1890568
 beta : 0.5453682
 gamma: FALSE

Coefficients:
        [,1]
a 67.4836360
b  0.7003517

我知道 Holt-Winters 是一种双重平滑的“扩展”，但我不知道如何执行简单和双重平滑。

感谢您的帮助！