library(rbiom)
infile <- system.file("extdata", "newick.tre", package = "rbiom")
tree <- read_tree(infile)
tree
subtree <- tree_subset(tree, tips = head(tree$tip.label))
subtree
Run the code above in your browser using DataLab