-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.')