Nothing
Bernoulli_Uniform <-
function(ind,p){
p.g=length(ind)
sb = lbeta(1+p.g,1+p-p.g)
return(sb) }
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.