powered by
lastResult()
.Last.value
fm1 <- lmer(y ~ x + (1|g), data=simdata) powerSim(fm1, nsim=10) ps1 <- lastResult()
Run the code above in your browser using DataLab