data(bacteria)
names(bacteria$espcodon)
names(bacteria$espaa)
names(bacteria$espbase)
sum(bacteria$espcodon) # 22,619,749 codons
if(adegraphicsLoaded()) {
g <- scatter(dudi.coa(bacteria$espcodon, scann = FALSE),
posi = "bottomleft")
} else {
scatter(dudi.coa(bacteria$espcodon, scann = FALSE),
posi = "bottom")
}
Run the code above in your browser using DataLab