some updates for ape 3.0-6

[ape.git] / R / ladderize.R

diff --git a/R/ladderize.R b/R/ladderize.R
index 8d2e94a240010eee9a17eb6b763777b66744128d..596a8fdd7aca261b89e89009388d5f54c0aec8a1 100644 (file)
--- a/R/ladderize.R
+++ b/R/ladderize.R
@@ -23,7 +23,7 @@ ladderize <- function(phy, right = TRUE)
         start <- start[o]
         neworder[newpos] <<- start
         for (i in 1:Nclade)
-          if (desc[i] > nb.tip) foo(desc[i], end[i], newpos[i] + 1)
+            if (desc[i] > nb.tip) foo(desc[i], end[i], newpos[i] + 1)
     }
     nb.tip <- length(phy$tip.label)
     nb.node <- phy$Nnode
@@ -37,6 +37,6 @@ ladderize <- function(phy, right = TRUE)
     foo(nb.tip + 1, nb.edge, 1)
     phy$edge <- phy$edge[neworder, ]
     if (!is.null(phy$edge.length))
-      phy$edge.length <- phy$edge.length[neworder]
+        phy$edge.length <- phy$edge.length[neworder]
     phy
 }