Nothing
tipToRootDist <- function(phy){
phyBR <- branches.per.tip(phy)
phyBL <- lapply(phyBR, function(x) phy$edge.length[x])
phyBS <- sapply(phyBL, sum)
phyBS
}
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.