adding bd.time

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

diff --git a/R/write.tree.R b/R/write.tree.R
index 996b9aa4f2b9488a87294c735839bce04322dd95..fa82a7b6d90712f0666c3a2f9fb277f8d9e50097 100644 (file)
--- a/R/write.tree.R
+++ b/R/write.tree.R
@@ -61,19 +61,15 @@ write.tree <-
         br <- which(phy$edge[, 1] == i)
         for (j in br) {
             desc <- phy$edge[j, 2]
-            if (desc > n)
-                add.internal(desc)
+            if (desc > n) add.internal(desc)
             else add.terminal(j)
-            if (j != br[length(br)])
-                cp(",")
+            if (j != br[length(br)])  cp(",")
         }
         cp(")")
-        if (nodelab)
-            cp(phy$node.label[i - n])
+        if (nodelab) cp(phy$node.label[i - n])
         if (brl) {
             cp(":")
-            cp(sprintf(f.d, phy$edge.length[which(phy$edge[,
-                2] == i)]))
+            cp(sprintf(f.d, phy$edge.length[which(phy$edge[, 2] == i)]))
         }
     }
     add.terminal <- function(i) {
@@ -89,28 +85,23 @@ write.tree <-
     br <- which(phy$edge[, 1] == n + 1)
     for (j in br) {
         desc <- phy$edge[j, 2]
-        if (desc > n)
-            add.internal(desc)
+        if (desc > n) add.internal(desc)
         else add.terminal(j)
-        if (j != br[length(br)])
-            cp(",")
+        if (j != br[length(br)]) cp(",")
     }
     if (is.null(phy$root.edge)) {
         cp(")")
-        if (nodelab)
-            cp(phy$node.label[1])
+        if (nodelab) cp(phy$node.label[1])
         cp(";")
     }
     else {
         cp(")")
-        if (nodelab)
-            cp(phy$node.label[1])
+        if (nodelab) cp(phy$node.label[1])
         cp(":")
         cp(sprintf(f.d, phy$root.edge))
         cp(";")
     }
-    if (file == "")
-        return(STRING)
-    else cat(STRING, file = file, append = append, sep = "\n")
+    if (file == "") return(STRING)
+    cat(STRING, file = file, append = append, sep = "\n")
 }