fixing drop.tip and bionj

[ape.git] / R / subtreeplot.R

diff --git a/R/subtreeplot.R b/R/subtreeplot.R
index 4e6f81f9310b2007a983654af19f1ed293ac3199..b733e9043470e181b3983d883a10fd393fca91d6 100644 (file)
--- 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)