power.tukey.test(n = 11, groups = 5, delta = 30,
within.var = 333.7)
## compare with t-test, Bonferroni-correction
power.t.test(n = 11, delta = 30, sd = sqrt(333.7),
sig.level = 0.05 / 10)
if (FALSE) {
powerMCTests(mu = c(rep(0,4), 30), n = 11,
parms = list(mean = 0,sd = sqrt(333.7)),
test = "tukeyTest")
}
Run the code above in your browser using DataLab