Nothing
size.prop.test <- function(p=NULL,alpha,delta){
u <- qnorm(1-alpha/2)^2
if (is.null(p))
{n <- u^2/(4*delta^2)}
else {n <- p*(1-p)*u^2/(delta^2)}
return(ceiling(n))
}
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.