X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fsubtreeplot.R;h=b733e9043470e181b3983d883a10fd393fca91d6;hb=dff741171e7afe3f9aaa2d9cb19c2f91995e8623;hp=4e6f81f9310b2007a983654af19f1ed293ac3199;hpb=a3ddfc06dd47c560b3ec5869ac104b0c68441eb1;p=ape.git

diff --git a/R/subtreeplot.R b/R/subtreeplot.R
index 4e6f81f..b733e90 100644
--- a/R/subtreeplot.R
+++ b/R/subtreeplot.R
@@ -1,4 +1,4 @@
-## subtreeplot.R (2008-04-14)
+## subtreeplot.R (2008-04-30)
 
 ##  Zoom on a Portion of a Phylogeny by Successive Clicks
 
@@ -23,7 +23,7 @@ subtreeplot<-function(x, wait=FALSE, ...) {
         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)