powered by
powerSim
powerCurve(fit, test = fixed(getDefaultXname(fit)), sim = fit, along = getDefaultXname(fit), within, breaks, seed, fitOpts = list(), testOpts = list(), simOpts = list(), ...)
doFit
fit
doSim
n
along
doTest
simrOptions
fm <- lmer(y ~ x + (1|g), data=simdata) pc1 <- powerCurve(fm) pc2 <- powerCurve(fm, breaks=c(4,6,8,10)) print(pc2) plot(pc2)
Run the code above in your browser using DataLab