Rs<-ruars(20,rcayley,kappa=100)
region(Rs,method='eigen',type='theory',estimator='mean',alp=0.1)
region(Rs,method='eigen',type='bootstrap',estimator='mean',alp=0.1,symm=TRUE)
region(Rs,method='moment',type='bootstrap',estimator='mean',alp=0.1,m=100)
region(Rs,method='moment',type='theory',estimator='mean',alp=0.1)
Run the code above in your browser using DataLab