# NOT RUN {
# }
# NOT RUN {
data(eco.test)
require(adegenet)
pc <- dudi.pca(eco[["P"]], scannf = FALSE, nf = 3)
pc <- pc$li
pc <- aue.rescale(pc)
plot(eco[["XY"]][, 1], eco[["XY"]][, 2], col = rgb(pc), pch = 16,
cex = 1.5, xlab ="X", ylab= "Y")
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace