# NOT RUN {
library(rbiom)
infile <- system.file("extdata", "newick.tre", package = "rbiom")
tree <- read.tree(infile)
leafs <- tips(tree)
subtree <- subtree(tree, head(leafs))
# }
Run the code above in your browser using DataLab