data(humDNAm)
dpcoahum <- dpcoa(data.frame(t(humDNAm$samples)), sqrt(humDNAm$distances), scan = FALSE, nf = 2)
dpcoahum
if(adegraphicsLoaded()) {
g1 <- plot(dpcoahum)
} else {
plot(dpcoahum)
}
if (FALSE) {
data(ecomor)
dtaxo <- dist.taxo(ecomor$taxo)
dpcoaeco <- dpcoa(data.frame(t(ecomor$habitat)), dtaxo, scan = FALSE, nf = 2)
dpcoaeco
if(adegraphicsLoaded()) {
g1 <- plot(dpcoaeco)
} else {
plot(dpcoaeco)
}
}
Run the code above in your browser using DataLab