final version for ape 2.6-1

[ape.git] / R / birthdeath.R

diff --git a/R/birthdeath.R b/R/birthdeath.R
index 4c65ecd9248e1b1ca497bdc16957f4bcbc208e4e..b4a25e17505aa835af535fd694c80ecabd609b73 100644 (file)
--- a/R/birthdeath.R
+++ b/R/birthdeath.R
@@ -84,8 +84,8 @@ bd.ext <- function(phy, S)
     if (!inherits(phy, "phylo")) stop('object "phy" is not of class "phylo"')
     if (!is.null(names(S))) {
         if (all(names(S) %in% phy$tip.label)) S <- S[phy$tip.label]
-        else warning('the names of argument "S" and the names of the tip labels
-did not match: the former were ignored in the analysis.')
+        else warning('the names of argument "S" and the tip labels
+did not match: the former were ignored.')
     }
     N <- length(S)
     x <- branching.times(phy)