a few changes....

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

diff --git a/R/as.matching.R b/R/as.matching.R
index eb78aa8f34fb5cc28e9ea142ce8b70b8e29bbb67..15eb0e70f47d297f43096aed55b1ec8e0e1bc34a 100644 (file)
--- a/R/as.matching.R
+++ b/R/as.matching.R
@@ -1,8 +1,8 @@
-## as.matching.R (2007-12-23)
+## as.matching.R (2010-09-29)
 
 ##    Conversion Between Phylo and Matching Objects
 
-## Copyright 2005-2007 Emmanuel Paradis
+## Copyright 2005-2010 Emmanuel Paradis
 
 ## This file is part of the R-package `ape'.
 ## See the file ../COPYING for licensing issues.
@@ -60,6 +60,7 @@ as.phylo.matching <- function(x, ...)
     obj <- list(edge = edge)
     if (!is.null(x$tip.label)) obj$tip.label <- x$tip.label
     else obj$tip.label <- as.character(1:nb.tip)
+    obj$Nnode <- nb.node
     class(obj) <- "phylo"
     read.tree(text = write.tree(obj))
 }