r - 模拟错误。具有非零差分项和外部回归器的 Arima

Question

当我尝试使用单位根和外部回归器模拟 Arima 过程时，出现错误。可重现的代码如下：

y <- ts(c(3,5,10,13,4,15,13,17,20,24,26,27))
dummy <- data.frame(dummy=c(0,0,0,0,1,0,0,0,0,0,0,0))
arima.1 <- arima(y, order=c(1,1,0), xreg=dummy)

future.dummy <- data.frame(dummy=c(0,0,1,0,0,0,0,0,0,0,0,0))
n <- nrow(future.dummy)

sim.1 <- simulate(arima.1, nsim=n, xreg=future.dummy)

这会产生以下错误消息：

Error in array(x, c(length(x), 1L), if (!is.null(names(x))) list(names(x),  : 
  attempt to set an attribute on NULL

我注意到，当我设置future=FALSE它时，它工作得很好，但是对于我的问题，我希望能够查看未来的模拟值。我非常想知道问题可能是什么。谢谢。