final changes for ape 2.4 including removing mlphylo!

[ape.git] / R / ape-defunct.R

diff --git a/R/ape-defunct.R b/R/ape-defunct.R
index fa885b4add6d48ba1479516e6f9d22a66875d353..58049ae721a255d3999bd3ac338e1d8b10412979 100644 (file)
--- a/R/ape-defunct.R
+++ b/R/ape-defunct.R
@@ -2,6 +2,22 @@ klastorin <- function(phy)
     .Defunct(msg = '\'klastorin\' has been removed from ape,
     see help("ape-defunct") for details.')
 
+mlphylo <-
+    function(x, phy, model = DNAmodel(), search.tree = FALSE,
+             quiet = FALSE, value = NULL, fixed = FALSE)
+    .Defunct(msg = '\'mlphylo\' has been removed from ape,
+    see help("ape-defunct") for details.')
+
+DNAmodel <- function(model = "K80", partition = 1,
+         ncat.isv = 1, invar = FALSE,
+         equal.isv = TRUE, equal.invar = 1)
+    .Defunct(msg = '\'DNAmodel\' has been removed from ape,
+    see help("ape-defunct") for details.')
+
+sh.test <- function(..., x, model = DNAmodel(), B = 100)
+    .Defunct(msg = '\'sh.test\' has been removed from ape,
+    see help("ape-defunct") for details.')
+
 heterozygosity <- function (x, variance = FALSE)
     .Defunct(msg = '\'heterozygosity\' has been moved from ape to pegas,
     see help("ape-defunct") for details.')