Nothing
Dose.Response.binary <-
function(alpha, beta,pi,ci,fi){
epsilon=sum(ci*pi)
pmean=mean(pi)
n=(qnorm(1-alpha)*sqrt(sum(ci^2*pmean*(1-pmean)/fi))+qnorm(1-beta)*sqrt(sum(ci^2*pi*(1-pi)/fi)))^2/(epsilon^2)
}
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.