library(FactoMineR)
library(FactoInvestigate)
data(decathlon)
head("decathlon")## [1] "decathlon"res = PCA(decathlon, quanti.sup = 11:12, quali.sup=13, graph=FALSE)
Investigate(res)## -- creation of the .Rmd file (time spent : 0s) --
##
## -- detection of outliers (time spent : 0.01s) --
## 0 outlier(s) terminated
##
## -- analysis of the inertia (time spent : 0.03s) --
## 3 component(s) carrying information : total inertia of 64.1%
##
## -- components description (time spent : 12.8s) --
## plane 1:2
## dim. 3
##
## -- classification (time spent : 12.97s) --
## 4 clusters
##
## -- annexes writing (time spent : 13.03s) --
##
## -- saving data (time spent : 13.06s) --
##
## -- outputs compilation (time spent : 13.06s) --## -- task completed (time spent : 17.99s) --
## This interpretation of the results was carried out automatically,
## it cannot match the quality of a personal interpretation