#Example takes about 30 seconds
## Not run:
# set.seed(43137)
# n <- 200
# z <- arima.sim(model=list(ar=0.8), n)
# i <- sample(1:n, size=floor(0.25*n))
# z[i] <- NA
# ANS <- cenarma(y=z, p=1)
# startTime <- proc.time()[3]
# se.Cenarma(ANS)
# totalTime <- proc.time()[3]-startTime
# totalTime
# ## End(Not run)
Run the code above in your browser using DataLab