tests/bapst.R

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)
kingaa/ouch documentation built on April 24, 2024, 11:24 a.m.