Nothing
coprobbase <-
function(max_inc,j,min_inc,nsite){
as.numeric(round(choose(max_inc,j) * choose(nsite - max_inc, min_inc - j),0) / round(choose(nsite,min_inc),0))
}
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.