Rs <- ruars(20, rcayley, kappa = 100)
#The zhang method can be accesed from the "region" function or the "zhang" function
#They will be different because it is a bootstrap.
region(Rs, method = 'moment', type = 'bootstrap', alp = 0.1, estimator = 'mean')
zhang(Rs, estimator = 'mean', alp = 0.1)
Run the code above in your browser using DataLab