# NOT RUN {
score.obj <- inspect.score(rnorm(10000), cutoff = 0)
power.bird3(score.obj, order = 2,
es = 0.25, rho2 = .20, rho3 = .10,
omega2 = .30, omega3 = .30,
g3 = 0, r2t3 = 0, n1 = 50, n2 = 3, n3 = 15)
# with 5 blocks df = n3- 2*(n blocks) - g3
# n3: number of level 3 units across five blocks
# increase in r2t3 does not make up for reduction in df
power.bird3(score.obj, order = 2, df = 15 - 2*5 - 0,
es = 0.25, rho2 = .20, rho3 = .10,
omega2 = .30, omega3 = .30,
g3 = 0, r2t3 = .30, n1 = 50, n2 = 3, n3 = 15)
# optimal combination of sample sizes for level 1, level 2 and level 3
# that produce power = .80 (given range restrictions)
cosa.bird3(score.obj, order = 2,
constrain = "power", power = .80,
es = 0.25, rho2 = .20, rho3 = .10,
omega2 = .30, omega3 = .30,
g3 = 0, r2t3 = 0,
n1 = c(15,30), n2 = c(3, 5), n3 = c(10,30))
# }
Run the code above in your browser using DataLab