Nothing
prbf01 <- function(n,y,target){
p <- exp(lbeta(y+2,n-y+1)-lbeta(1+y,n-y+1))
dbinom(y,n,prob=target)*exp(1)/dbinom(y,n,prob=p)
}
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.