Nothing
bern.length <- function(lengths, pa, mode = "local"){
if(mode == "local") out <- lengths * pa
if(mode == "global") out <- sum(lengths * pa)
out
}
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.