# NOT RUN {
score.obj <- inspect.score(rnorm(10000), cutoff = 0)
power.ird(score.obj, order = 2,
es = 0.25, g1 = 0, r21 = 0, n = 400)
# with 5 blocks df = n1 - 2*(n blocks) - order - g1
# n1: number of subjects across five blocks
power.ird(score.obj, order = 2, df = 400 - 2*5 - 2 - 0,
es = 0.25, g1 = 0, r21 = .30, n = 400)
# compare
# n1: number of subjects per block, n2: number of blocks
power.bird2f1(score.obj, order = 2,
es = 0.25, g1 = 0, r21 = .30,
n1 = 80, n2 = 5)
# optimal combination of sample sizes for subjects and blocks
# that produce power = .80 (given range restrictions)
cosa.bird2f1(score.obj, order = 2,
constrain = "power", power = .80,
es = 0.25, g1 = 0, r21 = .30,
n1 = c(100, 200), n2 = c(5, 10))
# }
Run the code above in your browser using DataLab