Nothing
getgenomelength <-
function (result)
{
l <- 1
for (x in unique(result[, 1])) {
l <- l + getchromosomelength(result, x)
}
l
}
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.