fix in c.multiPhylo()

[ape.git] / R / DNA.R

diff --git a/R/DNA.R b/R/DNA.R
index 63306ef9cc78e3c2556c8196f71520e931ca625e..df5b892192977628392406ecf0b52bd9a91ba1cf 100644 (file)
--- a/R/DNA.R
+++ b/R/DNA.R
@@ -359,7 +359,7 @@ dist.dna <- function(x, model = "K80", variance = FALSE, gamma = FALSE,
         stop(paste("'model' must be one of:",
                    paste("\"", MODELS, "\"", sep = "", collapse = " ")))
     if (imod == 11 && variance) {
-        warning("computing variance temporarily not available for model BH87.")
+        warning("computing variance not available for model BH87.")
         variance <- FALSE
     }
     if (gamma && imod %in% c(1, 5:7, 9:15)) {