few corrections and fixes

[ape.git] / R / write.nexus.R

diff --git a/R/write.nexus.R b/R/write.nexus.R
index 1a816f0573ff35d5b30d64e3e18c9619e775b073..14f77341c498bfcd4a2f3bfbadffd905bdc3de2d 100644 (file)
--- a/R/write.nexus.R
+++ b/R/write.nexus.R
@@ -1,4 +1,4 @@
-## write.nexus.R (2009-07-27)
+## write.nexus.R (2009-10-27)
 
 ##   Write Tree File in Nexus Format
 
@@ -69,9 +69,11 @@ the original data won't be written with the tree."))
         token <- as.character(1:N)
         names(token) <- obj[[1]]$tip.label
         obj[[1]]$tip.label <- token
-        if (ntree > 1)
-          for (i in 2:ntree)
-            obj[[i]]$tip.label <- token[obj[[i]]$tip.label]
+        if (ntree > 1) {
+            for (i in 2:ntree)
+                obj[[i]]$tip.label <- token[obj[[i]]$tip.label]
+            class(obj) <- NULL
+        }
     } else {
         for (i in 1:ntree)
           obj[[i]]$tip.label <- checkLabel(obj[[i]]$tip.label)