X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2FDNA.R;h=007547e5a9a2ba8b079808d370243b627fee71d5;hb=f3426364b40c7c0e6aadf6ea2690716425abdfc9;hp=7bc0431507ea22d5d4f35986f2cd2f3eb270d58a;hpb=3f528bd2c47301b64ed03bd28039bbf22a7510ad;p=ape.git

diff --git a/R/DNA.R b/R/DNA.R
index 7bc0431..007547e 100644
--- a/R/DNA.R
+++ b/R/DNA.R
@@ -1,4 +1,4 @@
-## DNA.R (2008-10-08)
+## DNA.R (2008-12-22)
 
 ##   Manipulations and Comparisons of DNA Sequences
 
@@ -297,7 +297,7 @@ dist.dna <- function(x, model = "K80", variance = FALSE, gamma = FALSE,
                      as.matrix = FALSE)
 {
     MODELS <- c("RAW", "JC69", "K80", "F81", "K81", "F84", "T92", "TN93",
-                "GG95", "LOGDET", "BH87", "PARALIN")
+                "GG95", "LOGDET", "BH87", "PARALIN", "N")
     imod <- which(MODELS == toupper(model))
     if (imod == 11 && variance) {
         warning("computing variance temporarily not available for model BH87.")