## Not run:
# genera <- c("Perdix", "Dendroica", "Cinclus", "Selasphorus", "Struthio")
# tr <- tol_induced_subtree(ott_ids=c(292466, 267845, 666104, 102710))
# tr$tip.label %in% genera
# tr$tip.label <- strip_ott_ids(tr$tip.label)
# tr$tip.label %in% genera## End(Not run)
Run the code above in your browser using DataLab