getgenomelength <-
function (result)
{
l <- 1
for (x in unique(result[, 1])) {
l <- l + getchromosomelength(result, x)
}
l
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.