# NOT RUN {
# test with 10 bootstrap replications:
a<-setarTest(sun[1:100], m=1, nboot=10)
plot(a)
#use old results and compue 20 new replications
b<-extendBoot(a, n=20)
#see the different distributions:
plot(b)
# }
Run the code above in your browser using DataLab