从拟合模型模拟sarima时间序列

Question

我想根据拟合的SARIMA模型模拟时间序列。我尝试使用R中的平滑库。是否有另一种方法可以使用预测包

x <- ts(100 + c(1:100) + rnorm(100,0,15),frequency=12)
ourModel <- auto.ssarima(x, h=18, silent=TRUE)
ourData <- simulate(ourModel, nsim=50, obs=100)