z.power <- function(n,alpha=.05,del=NULL,var=NULL){ q=qnorm(1-alpha/2) sig=sqrt(var) p1=pnorm(0-q-(sqrt(n)*del)/sig) p2=1-pnorm(q-(sqrt(n)*del)/sig) p=p1+p2 list(power=p) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.