Nothing
Vaccine.ELDI <-
function(alpha,beta,theta0,theta,pt,pc){
#theta=pt/(pt+pc)
n=(qnorm(1-alpha)*sqrt(theta0*(1-theta0))+qnorm(1-beta)*sqrt(theta*(1-theta)))^2/((pt+pc)*(theta-theta0)^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.