## Not run:
#
# # modifiy nslaves to match the number of available cores
# set.seed(1345)
# x <- arima.sim(n=120, model = list(ar=0.8));
# result <- Trho.test.AR.p(x, lag.max = 5, B = 100, bw='reference', method='integral', nslaves=2)
#
# ## ** Compare timings **
# system.time(Trho.test.AR.p(x, lag.max = 5, B = 100, bw='reference', method='integral', nslaves=4))
# system.time(Trho.test.AR(x, lag.max = 5, B = 100, bw='reference', method='integral'))
# ## End(Not run)Run the code above in your browser using DataLab