Nothing
gx.hypergeom <-
function (tt, aa, kk, xx)
{
pp <- 100 * round(dhyper(xx, aa, tt - aa, kk), 3)
cat(" Traverse length is", tt, "sites with", aa, "sites 'expected' a priori to be anomalous,",
"\n number of >Threshold sites is", kk, "with", xx,
"coinciding at 'expected' sites.", paste("\n Probability that this is due to 'chance' is ",
pp, "%\n", sep = ""))
invisible()
}
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.