Rs <- ruars(20, rcayley, kappa = 100)
#The chang method can be accesed from the "region" function or the "chang" function
region(Rs, method = 'moment', type = 'theory', alp = 0.1, estimator = 'mean')
chang(Rs, estimator = 'mean', alp = 0.1)
Run the code above in your browser using DataLab