# NOT RUN {
score.obj <- inspect.score(rnorm(10000), cutoff = 0)
mdes.bcrd4r3(score.obj, order = 2,
power = .80, rho2 = .20, rho3 = .10, rho4 = .05,
omega4 = .30, g4 = 0, r2t4 = 0,
n1 = 20, n2 = 3, n3 = 20, n4 = 10)
power.bcrd4r3(score.obj, order = 2,
es = 0.334, rho2 = .20, rho3 = .10, rho4 = .05,
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, level 2, and level 4)
cosa.bcrd4r3(score.obj, order = 2,
constrain = "power", power = .80,
es = 0.25, rho2 = .20, rho3 = .10, rho4 = .05,
omega4 = .30, g4 = 0, r2t4 = 0,
n1 = c(10, 30), n2 = c(2, 5),
n3 = NULL, n4 =c(3, 10))
# }
Run the code above in your browser using DataLab