#example 1: simple
tree1<-rtree(50) #random tree with 50 leaves
tree2<-subtreeplot(tree1, wait=TRUE) # on exit, tree2 will be a subtree of tree1.
#example 2: more than one zoom
tree1<-rtree(60)
tree2<-subtreeplot(subtreeplot(subtreeplot(tree1))) #allows three succssive zooms.
Run the code above in your browser using DataLab