使用arima.sim模拟带有R漂移的ARIMA1,1,1

我正在尝试使用 ARIMA sim 包来模拟具有漂移的 ARIMA 模拟。我的问题是我似乎无法让它工作。

我需要得到这样的东西：

我的代码正在产生这个：

> mean(datatime)
[1] 15881.56
> sd(datatime)
[1] 8726.893
> length(datatime)
[1] 123

# The mean and variance from the original series

originalseriesmean = 15881.56
originalseriesvariance = 8726.893*8726.893
originalseriesn=123

# Simulation using arima.sim



ts.sim <- arima.sim(model=list(c(1,1,1)), n = 123, mean=190,sd=69.2863)

ts.plot(ts.sim)

如何向此函数添加 drft 项以使其看起来像之前的模拟？