phylo2p <- function(tree){
# to map newick trees into ther xxxx format
ltt = ltt.plot.coords(tree)
t = diff(ltt[,1])
ltt = ltt[-1,]
n = ltt[,2]
E = diff(n)
#n = n[-length(n)]
E[E==-1] = 0
return(list(wt=t,E=E,n=n))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.