powered by
fixed(xname, method = c("z", "t", "lr", "kr", "pb")) compare(model, method = c("lr", "pb")) fcompare(model, method = c("lr", "kr", "pb")) rcompare(model, method = c("lr", "pb")) random()
lm1 <- lmer(y ~ x + (x|g), data=simdata) lm0 <- lmer(y ~ x + (1|g), data=simdata) anova(lm1, lm0) compare(. ~ x + (1|g))(lm1) rcompare(~ (1|g))(lm1) powerSim(fm1, compare(. ~ x + (1|g)))
Run the code above in your browser using DataLab