X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fladderize.R;h=596a8fdd7aca261b89e89009388d5f54c0aec8a1;hb=refs%2Fheads%2Fmaster;hp=8d2e94a240010eee9a17eb6b763777b66744128d;hpb=c827059eeafc8cbe41c812b26979543ab287803e;p=ape.git

diff --git a/R/ladderize.R b/R/ladderize.R
index 8d2e94a..596a8fd 100644
--- 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
 }