few corrections and fixes

[ape.git] / R / dist.topo.R

diff --git a/R/dist.topo.R b/R/dist.topo.R
index 06619ec5345a23cabe7b601ed0f46eb9e77a2c23..1eb770af6a12f15948b70388a322eb0f6fcd7992 100644 (file)
--- a/R/dist.topo.R
+++ b/R/dist.topo.R
@@ -82,8 +82,9 @@ dist.topo <- function(x, y, method = "PH85")
             stop(paste("tree no.", i, "has different tip labels"))
         ie <- match(1:n, x[[i]]$edge[, 2])
         x[[i]]$edge[ie, 2] <- ilab
+        x[[i]]$tip.label <- NULL
     }
-    for (i in 1:length(x)) x[[i]]$tip.label <- NULL
+    x[[1]]$tip.label <- NULL
     attr(x, "TipLabel") <- ref
     x
 }