# NOT RUN {
data(anoteropsis)
anoDist <- ape::dist.dna(anoteropsis)
anoSpp <- sapply(strsplit(dimnames(anoteropsis)[[1]], split="_"),
function(x) paste(x[1], x[2], sep="_"))
rmSingletons(anoSpp)
rmSingletons(anoSpp, exclude=FALSE)
data(dolomedes)
doloDist <- ape::dist.dna(dolomedes)
doloSpp <- substr(dimnames(dolomedes)[[1]], 1, 5)
rmSingletons(doloSpp)
rmSingletons(doloSpp, exclude=FALSE)
# }
Run the code above in your browser using DataLab