data(deug)
scatter(dd1 <- dudi.pca(deug$tab, scannf = FALSE, nf = 4),
posieig = "bottom")
data(rhone)
dd1 <- dudi.pca(rhone$tab, nf = 4, scann = FALSE)
scatter(dd1, sub = "Principal component analysis")
Run the code above in your browser using DataLab