library(ouch)
x <- read.csv("bapst.csv")
tic <- Sys.time()
tr <- with(x,ouchtree(nodes=node,ancestors=ancestor,times=time,labels=species))
toc <- Sys.time()
print(toc-tic)
plot(tr)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.