# NOT RUN {
score.obj <- inspect.score(rnorm(10000), cutoff = 0)
mdes.bcrd4r2(score.obj, order = 2,
power = .80, rho2 = .20, rho3 = .10, rho4 = .05,
omega3 = .30, omega4 = .30,
g4 = 0, r2t4 = 0,
n1 = 20, n2 = 3, n3 = 20, n4 = 10)
power.bcrd4r2(score.obj, order = 2,
es = 0.242, rho2 = .20, rho3 = .10, rho4 = .05,
omega3 = .30, omega4 = .30,
g4 = 0, r2t4 = 0,
n1 = 20, n2 = 3, n3 = 20, n4 = 10)
# optimal combination of sample sizes for level 1, level 2, level 3, and level 4
# that produce power = .80 (given range restrictions for level 1 and level 2)
cosa.bcrd4r2(score.obj, order = 2,
constrain = "power", power = .80,
es = 0.25, rho2 = .20, rho3 = .10, rho4 = .05,
omega3 = .30, omega4 = .30,
g4 = 0, r2t4 = 0,
n1 = c(10, 30), n2 = c(2, 5), n3 = NULL, n4 = NULL)
# }
Run the code above in your browser using DataLab