## Not run:
#
# design1 <- mdes.bira2r1(rho2=.35, omega2=.10,
# n=83, J=480)
# # MDES against power & J (3D plot)
# plot(design1)
# # MDES against power & J (contour plot)
# plot(design1, type="c")
# # MDES against J (2D plot)
# plot(design1, pars=c("mdes","J"))
#
# ## End(Not run)
Run the code above in your browser using DataLab