X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fphymltest.R;h=a87d46dfe6ed843216238ad061378138982c6548;hb=06e83c6878153f8e7999c0470263c40aad4db258;hp=a3545071902ed1d1a51d081d3d9d42309658375c;hpb=285d0e6700c8381d66b5c671aacd9494fa8ad444;p=ape.git

diff --git a/R/phymltest.R b/R/phymltest.R
index a354507..a87d46d 100644
--- a/R/phymltest.R
+++ b/R/phymltest.R
@@ -1,8 +1,8 @@
-## phymltest.R (2008-10-08)
+## phymltest.R (2009-03-29)
 
 ##   Fits a Bunch of Models with PhyML
 
-## Copyright 2004-2008 Emmanuel Paradis
+## Copyright 2004-2009 Emmanuel Paradis
 
 ## This file is part of the R-package `ape'.
 ## See the file ../COPYING for licensing issues.
@@ -26,9 +26,9 @@ phymltest <- function(seqfile, format = "interleaved", itree = NULL,
     os <- Sys.info()[1]
     ## default names of PhyML:
     if (is.null(execname)) {
-        if (os == "Linux") execname <- "phyml_3.0_linux32"
-        if (os == "Darwin") execname <- "phyml_3.0_macintel"
-        if (os == "Windows") execname <- "phyml_3.0_win32"
+        if (os == "Linux") execname <- "phyml_3.0.1_linux32"
+        if (os == "Darwin") execname <- "phyml_3.0.1_macintel"
+        if (os == "Windows") execname <- "phyml_3.0.1_win32"
     }
     if (is.null(execname))
         stop("you must give an executable file name for PHYML")
@@ -41,7 +41,7 @@ phymltest <- function(seqfile, format = "interleaved", itree = NULL,
     tstv <- rep("-t e", N) # ignored by PhyML with JC69 or F81
     inv <- rep(c("", "-v e"), length.out = N)
     ## no need to use the -c option of PhyML (4 categories by default if '-a e' is set):
-    alpha <- rep(rep(c("", "-a e"), each = 2), length.out = N)
+    alpha <- rep(rep(c("-c 1", "-a e"), each = 2), length.out = N)
     tree <- rep("", N)
     if (!is.null(itree)) tree[] <- paste("-u ", itree)