final commit for ape 3.0

[ape.git] / R / ace.R

diff --git a/R/ace.R b/R/ace.R
index b51b58eeaa6d563d70ba2f8aee99b6f45f182b34..ed86fc6d6af481104c7bde2816a83f5e9b9bccab 100644 (file)
--- a/R/ace.R
+++ b/R/ace.R
@@ -12,7 +12,7 @@ ace <- function(x, phy, type = "continuous", method = "ML", CI = TRUE,
                 scaled = TRUE, kappa = 1, corStruct = NULL, ip = 0.1)
 {
     if (!inherits(phy, "phylo"))
-        stop('object "phy" is not of class "phylo".')
+        stop('object "phy" is not of class "phylo"')
     if (is.null(phy$edge.length))
         stop("tree has no branch lengths")
     type <- match.arg(type, c("continuous", "discrete"))