a fix in cophyloplot()

[ape.git] / R / root.R

diff --git a/R/root.R b/R/root.R
index 8526b8f3d4f74add15240b88eca14a8267785496..8c1d9b26f9ebbfa49dc49f7826b910f262c07c47 100644 (file)
--- a/R/root.R
+++ b/R/root.R
@@ -31,7 +31,7 @@ unroot <- function(phy)
     ## eventually adding the branch length to the other one
     ## also coming from the root.
     ## In all cases, the node deleted is the 2nd one (numbered
-    ## nb.tip+2 in `edge'), so we simply need to renumber the
+    ## nb.tip+2 in 'edge'), so we simply need to renumber the
     ## nodes by adding 1, except the root (this remains the
     ## origin of the tree).
     nb.tip <- length(phy$tip.label)
@@ -57,7 +57,7 @@ unroot <- function(phy)
     }
     phy$Nnode <- phy$Nnode - 1L
     if (!is.null(phy$node.label))
-      phy$node.label <- phy$node.label[-2]
+        phy$node.label <- phy$node.label[-2]
     phy
 }