## Not run:
#
# # object returned from optimal function
# design1 <- optimal.bira2r1(cn=1, cJ=10, cost=560,
# constrain="cost", rho2=.20, omega2=.50)
# # convert the object into an object returned from mdes function
# design2 <- optimal.to.mdes(design1)
#
# ## End(Not run)
Run the code above in your browser using DataLab