library(FactoMineR) naranja <- read.table("http://factominer.free.fr/libra/naranja.csv",header=TRUE, sep=";", dec=".", row.names=1) summary(naranja) res.pca <- PCA(naranja,quanti.sup=8:15,quali.sup=16:17) plot(res.pca, invisible="quali") round(res.pca$var$coord[,1:2],2) round(res.pca$eig,2) round(res.pca$ind$dist,2) round(res.pca$ind$contrib[,1:2],2) round(res.pca$var$contrib[,1:2],2) lapply(dimdesc(res.pca),lapply,round,2)