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