# NOT RUN {
# Two/One partially nested design
power.med_pn21(esa = .40, esB = .40, esb1 = .40,
two.tailed = TRUE, alpha = .05,
rhom_trt = .20, rho_trt = .20,
r2m1_ctrl = .60, r2m1_trt = .60, r2m2_trt = .60,
r2y1_trt = .50, r2y2_trt = .50,
n_ctrl = 50, n_trt = 6, J_trt = 50)
# Three/One partially nested design
power.med_pn31(esa = .50, esB = .50, esb1 = .10, esb2 = .10,
rhom3_trt = .10, rhom2_trt = .20, rho3_trt = .10, rho2_trt = .20,
r2m1_ctrl = .20, r2m1_trt = .20, r2m2_trt = .20, r2m3_trt = .20,
r2y1_trt = .20, r2y2_trt = .20, r2y3_trt = .20,
n_ctrl = 60, n_trt = 20, J_trt = 10, K_trt = 60)
# Three/Two partially nested design
power.med_pn32(esa = .50, esB = .50, esb1 = .10, esb2 = .10,
rhom2_ctrl = .20, rhom3_trt = .10, rhom2_trt = .20,
rho3_trt = .10, rho2_trt = .20,
r2m1_ctrl = .20, r2m2_ctrl = .20,
r2m1_trt = .20, r2m2_trt = .20, r2m3_trt = .20,
r2y1_trt = .20, r2y2_trt = .20, r2y3_trt = .20,
n_ctrl = 24, n_trt = 24, J_trt = 12, J_ctrl = 60, K_trt = 60)
# }
Run the code above in your browser using DataLab