fixing various bugs + news in cophyloplot

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

diff --git a/R/ape-defunct.R b/R/ape-defunct.R
index 58049ae721a255d3999bd3ac338e1d8b10412979..96df8f2bb0dd72056e2c36b0a059f882102d1efd 100644 (file)
--- a/R/ape-defunct.R
+++ b/R/ape-defunct.R
@@ -17,26 +17,3 @@ DNAmodel <- function(model = "K80", partition = 1,
 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.')
-
-H <- function(x, variance = FALSE)
-    heterozygosity (x, variance = FALSE)
-
-nuc.div <- function(x, variance = FALSE, pairwise.deletion = FALSE)
-    .Defunct(msg = '\'nuc.div\' has been moved from ape to pegas,
-    see help("ape-defunct") for details.')
-
-theta.h <- function(x, standard.error = FALSE)
-    .Defunct(msg = '\'theta.h\' has been moved from ape to pegas,
-    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,
-    see help("ape-defunct") for details.')
-
-theta.s <- function(s, n, variance = FALSE)
-    .Defunct(msg = '\'theta.s\' has been moved from ape to pegas,
-    see help("ape-defunct") for details.')