## 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.SA.p(x, lag.max = 5, B = 100, bw='reference', method='integral', nslaves=2)
#
# ## ** Compare timings **
# system.time(Trho.test.SA.p(x, lag.max = 5, B = 100, bw='reference', method='integral', nslaves=4))
# system.time(Trho.test.SA(x, lag.max = 5, B = 100, bw='reference', method='integral'))
# ## End(Not run)Run the code above in your browser using DataLab