Nothing
alpha.u = function(nu, a0, b0, H){
M = length(nu)
a = a0 + M*(H-1)
b = b0 - sum(unlist(lapply(nu, function(x){log(1-x[-H])})))
return(rgamma(1, a, b))
}
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.