fix in drop.tip() and new option in pic()

[ape.git] / R / summary.phylo.R

diff --git a/R/summary.phylo.R b/R/summary.phylo.R
index 715021b4db094de084235b07082621e69dd9009b..f390b24d25bbb936331e26fea1e25aa51a45dd5a 100644 (file)
--- a/R/summary.phylo.R
+++ b/R/summary.phylo.R
@@ -85,7 +85,7 @@ print.phylo <- function(x, printlen = 6,...)
                               collapse=", "), ", ...\n", sep = ""))
     } else print(x$tip.label)
     if (!is.null(x$node.label)) {
-        cat("\tNode labels:\n")
+        cat("Node labels:\n")
         if (nb.node > printlen) {
             cat(paste("\t", paste(x$node.label[1:printlen],
                                  collapse=", "), ", ...\n", sep = ""))