X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fape-defunct.R;h=c89dc06738df17dd295a6f644659d7918d5d5837;hb=f3304b6f40610d9b7306a9275d593b5c038ab0a0;hp=96df8f2bb0dd72056e2c36b0a059f882102d1efd;hpb=d9c8f411a20ef829c9c332aacc5e245b11162d93;p=ape.git

diff --git a/R/ape-defunct.R b/R/ape-defunct.R
index 96df8f2..c89dc06 100644
--- a/R/ape-defunct.R
+++ b/R/ape-defunct.R
@@ -2,18 +2,34 @@ 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)
+mlphylo <- function(...)
     .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)
+DNAmodel <- function(...)
     .Defunct(msg = '\'DNAmodel\' has been removed from ape,
     see help("ape-defunct") for details.')
 
-sh.test <- function(..., x, model = DNAmodel(), B = 100)
+sh.test <- function(...)
     .Defunct(msg = '\'sh.test\' has been removed from ape,
     see help("ape-defunct") for details.')
+
+evolve.phylo <- function(phy, value, var)
+    .Defunct(msg = '\'evolve.phylo\' has been removed from ape,
+    see help("ape-defunct") for details.')
+
+plot.ancestral <- function(...)
+    .Defunct(msg = '\'plot.ancestral\' has been removed from ape,
+    see help("ape-defunct") for details.')
+
+chronogram <- function(...)
+    .Defunct(msg = '\'chronogram\' has been removed from ape,
+    see help("ape-defunct") for details.')
+
+ratogram <- function(...)
+    .Defunct(msg = '\'ratogram\' has been removed from ape,
+    see help("ape-defunct") for details.')
+
+NPRS.criterion <- function(...)
+    .Defunct(msg = '\'NPRS.criterion\' has been removed from ape,
+    see help("ape-defunct") for details.')