X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fape-defunct.R;h=c89dc06738df17dd295a6f644659d7918d5d5837;hb=3ece2ec76da287a8a86339827cc44e193fe16cdd;hp=fa885b4add6d48ba1479516e6f9d22a66875d353;hpb=dca7b216e929337836a18374147b13eb793ffd95;p=ape.git

diff --git a/R/ape-defunct.R b/R/ape-defunct.R
index fa885b4..c89dc06 100644
--- a/R/ape-defunct.R
+++ b/R/ape-defunct.R
@@ -2,25 +2,34 @@ klastorin <- function(phy)
     .Defunct(msg = '\'klastorin\' 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,
+mlphylo <- function(...)
+    .Defunct(msg = '\'mlphylo\' has been removed from ape,
     see help("ape-defunct") for details.')
 
-H <- function(x, variance = FALSE)
-    heterozygosity (x, variance = FALSE)
+DNAmodel <- function(...)
+    .Defunct(msg = '\'DNAmodel\' has been removed from ape,
+    see help("ape-defunct") for details.')
+
+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.')
 
-nuc.div <- function(x, variance = FALSE, pairwise.deletion = FALSE)
-    .Defunct(msg = '\'nuc.div\' has been moved from ape to pegas,
+plot.ancestral <- function(...)
+    .Defunct(msg = '\'plot.ancestral\' has been removed from ape,
     see help("ape-defunct") for details.')
 
-theta.h <- function(x, standard.error = FALSE)
-    .Defunct(msg = '\'theta.h\' has been moved from ape to pegas,
+chronogram <- function(...)
+    .Defunct(msg = '\'chronogram\' has been removed from ape,
     see help("ape-defunct") for details.')
 
-theta.k <- function(x, n = NULL, k = NULL)
-    .Defunct(msg = '\'theta.k\' has been moved from ape to pegas,
+ratogram <- function(...)
+    .Defunct(msg = '\'ratogram\' has been removed from ape,
     see help("ape-defunct") for details.')
 
-theta.s <- function(s, n, variance = FALSE)
-    .Defunct(msg = '\'theta.s\' has been moved from ape to pegas,
+NPRS.criterion <- function(...)
+    .Defunct(msg = '\'NPRS.criterion\' has been removed from ape,
     see help("ape-defunct") for details.')