data(primateDNA)
## Not run:
# library(ape)
# primates.dist <- dist.dna(as.DNAbin(primateDNA), model = "K80")
# primates.cmd <- cmdscale(primates.dist)
# lefrt <- primates.cmd[,1] < apply(primates.cmd, 1, mean)
# plot(primates.cmd)
# text(primates.cmd, rownames(primates.cmd), pos=lefrt*2+2)
# ## End(Not run)
Run the code above in your browser using DataLab