## Not run: ------------------------------------
#
# # object returned from power function
# design1 <- power.bira2r1(mdes=.15, rho2=.35, omega2=.10, n=83, J=10)
# # convert the object into an object returned from mdes function
# design2 <- power.to.mdes(design1)
#
#
## ---------------------------------------------
Run the code above in your browser using DataLab