prettyTree <-
function(ntax=10,edge.width=10)
{
plot(ladderize(chronogram(rtree(ntax)),right=FALSE),show.tip.label=FALSE,direction="upwards",edge.width=edge.width)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.