correcting a bug in write.tree + error in MPR examples

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

diff --git a/R/write.tree.R b/R/write.tree.R
index 934cda663f5686318f232c371cf81e22de99e219..20e74ad9237cce9705e72c687f5c5da0a7ca2d81 100644 (file)
--- a/R/write.tree.R
+++ b/R/write.tree.R
@@ -68,7 +68,7 @@ write.tree <-
             if (j != desc[length(desc)]) cp(",")
         }
         cp(")")
-        if (nodelab) cp(phy$node.label[ind[i] - n])
+        if (nodelab && ind[i] > n) cp(phy$node.label[ind[i] - n])
         if (brl) {
             cp(":")
             cp(sprintf(f.d, phy$edge.length[ind[i]]))