## a TARMA(1,1,1,1)
set.seed(123)
x1 <- TARMA.sim(n = 100, phi1 = c(0.5, -0.5), phi2 = c(0.0, 0.8),
theta1 = 0.5, theta2 = 0.5, d = 1, thd = 0.2)
TARMAur.test(x1)
## a IMA(1,1)
x2 <- arima.sim(n = 100, model = list(order = c(0, 1, 1), ma = 0.6))
TARMAur.test(x2)
Run the code above in your browser using DataLab