# NOT RUN {
data(chiroptera)
zoom(chiroptera, 1:20, subtree = TRUE)
zoom(chiroptera, grep("Plecotus", chiroptera$tip.label))
zoom(chiroptera, list(grep("Plecotus", chiroptera$tip.label),
grep("Pteropus", chiroptera$tip.label)))
# }
Run the code above in your browser using DataLab