Nothing
"gene.geneslist.statistic" <-
function(gene, geneslist, paperLens = paperLen())
{
ans = lapply(geneslist, function(x) gene.gene.statistic(gene, x, paperLens))
lapply(names(ans[[1]]), function(y)
apply(sapply(ans, function(x) x[[y]]),1,sum))
}
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.