some bug fixes and '...' in rTrait*()

[ape.git] / R / as.phylo.R

diff --git a/R/as.phylo.R b/R/as.phylo.R
index f5a2569f7577f0236a7d7456d0ac2ab15e21f61e..e8d0f667a325b8df396f2f552d38ecbfa78e1f74 100644 (file)
--- a/R/as.phylo.R
+++ b/R/as.phylo.R
@@ -1,4 +1,4 @@
-## as.phylo.R (2010-12-14)
+## as.phylo.R (2010-12-15)
 
 ##     Conversion Among Tree Objects
 
@@ -90,6 +90,7 @@ as.hclust.phylo <- function(x, ...)
     if (!is.binary.tree(x)) stop("the tree is not binary")
     if (!is.rooted(x)) stop("the tree is not rooted")
     n <- length(x$tip.label)
+    x$node.label <- NULL # by Jinlong Zhang (2010-12-15)
     bt <- sort(branching.times(x))
     inode <- as.numeric(names(bt))
     N <- n - 1L