X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fwrite.tree.R;h=20e74ad9237cce9705e72c687f5c5da0a7ca2d81;hb=071f848fadb1be486490a10f3de8324d3aaa5cb7;hp=934cda663f5686318f232c371cf81e22de99e219;hpb=50912ceb91f34227ae89432b6e6a8969a3a3f5f7;p=ape.git

diff --git a/R/write.tree.R b/R/write.tree.R
index 934cda6..20e74ad 100644
--- 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]]))