-## subtreeplot.R (2008-04-14)
+## subtreeplot.R (2008-04-30)
## Zoom on a Portion of a Phylogeny by Successive Clicks
N.tip<-Ntip(x)
N.node<-Nnode(x)
- coor<-plot.phylo.coor(x)
+ coor<-plotPhyloCoor(x)
tips<-x$tip.label
nodes<-x$node.label
if (is.null(x$node.label)) nodes<-(N.tip+1):(N.tip+N.node)