Nothing
## ----setup, include=FALSE------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)
library(PowerUpR)
## ---- message=FALSE, eval=FALSE-----------------------------------------
# install.packages("PowerUpR")
# library(PowerUpR)
## ---- message=FALSE, fig.width=7, fig.height=5---------------------------
mdes <- mdes.cra3(power=.80, rho2=.06, rho3=.18,
g3=1, r21=.55, r22=.50, r23=.45,
p=.40, n=10, J=2, K=83)
plot(mdes, ypar = "mdes", xlim = c(30, 150),
main = "MDES as a Function of Number of Schools",
locate = TRUE)
## ---- message=FALSE, fig.width=7, fig.height=5---------------------------
power <- power.cra3(es=.23, rho2=.06, rho3=.18,
g3=1, r21=.55, r22=.50, r23=.45,
p=.40, n=10, J=2, K=83)
plot(power, ypar = "power", xlim = c(30, 150),
main = "Statistical Power as a Function of Number of Schools",
locate = TRUE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.