# NOT RUN {
# cross-checks
mdes.bcra3r2(rho3=.13, rho2=.10, omega3=.4,
n=10, J=6, K=24)
power.bcra3r2(es = .246, rho3=.13, rho2=.10, omega3=.4,
n=10, J=6, K=24)
mrss.bcra3r2(es = .246, rho3=.13, rho2=.10, omega3=.4,
n=10, J=6)
# cross-checks
mdes.bcra3r2_pn(rho3_trt=.10, omega3=.50,
rho2_trt=.15, rho_ic=.20,
n=40, J=60, K=6, ic_size=10)
power.bcra3r2_pn(es=.399, rho3_trt=.10, omega3=.50,
rho2_trt=.15, rho_ic=.20,
n=40, J=60, K=6, ic_size=10)
mrss.bcra3r2_pn(es=.399, rho3_trt=.10, omega3=.50,
rho2_trt=.15, rho_ic=.20,
n=40, J=60, ic_size=10)
# }
Run the code above in your browser using DataLab