## Not run: ------------------------------------
#
# # MDES values returned from mdes function
# design1 <- mdes.cra3r3(power=.80, rho2=.06, rho3=.18,
# g3=1, R12=.55, R22=.50, R32=.45,
# P=.40, n=10, J=2, K=83)
# # convert MDES values into percentiles
# percentiles <- mdes.to.pctl(design1)
#
#
## ---------------------------------------------
Run the code above in your browser using DataLab