Nothing
each.Fisher.test <-
function (p)
{
Xsq <- -2 * sum(log(p))
pval <- 1 - pchisq(Xsq, df = 2 * length(p))
return(pval)
}
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.