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