# Unconstrained optimal design #----------
myod1 <- od.eq.2group(r12 = 0.5, c1 = 1, c1t = 20)
# Constrained optimal design with p = .50
myod2 <- od.eq.2group(r12 = 0.5, c1 = 1, c1t = 20, p = .50)
# Relative efficiency (RE)
myre <- re(od = myod1, subod= myod2)
myre$re # RE = 0.71
Run the code above in your browser using DataLab