genera <- c("Perdix", "Clangula", "Dendroica", "Cinclus", "Stellula", "Struthio")
tr <- tol_induced_subtree(ott_ids=c(292466, 501678, 267845, 666104, 316878, 102710, 176458))
tr$tip.label %in% genera
tr$tip.label <- strip_ott_ids(tr$tip.label)
tr$tip.label %in% generaRun the code above in your browser using DataLab