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