Nothing
gen_sim_pvalue_null <-
function(p, m, alpha0)
{
nn=ceiling(p*alpha0)
u=rbeta(1, nn, p-m+1-nn)
v=runif(nn-1)*u
c(v, u)
}
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.