Nothing
"fun.beta1" <-
function(a, b){
index<-as.logical((a>0)*(b>0))
result<-gamma(a[index])*gamma(b[index])/gamma(a[index] + b[index])
result[!index]<-NA
return(result)
}
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.