library(FactoMineR)
# PCA
data(decathlon)
res_pca <- FactoMineR::PCA(decathlon, scale.unit = TRUE, quanti.sup = 11:12,
quali.sup = 13, graph = FALSE)
## Get eigenvalues
extract(res_pca, "eig")
## Get individuals coordinates
extract(res_pca, "ind coord")
## Get individuals cos2
extract(res_pca, "ind cos2")
## Get variables contribution
extract(res_pca, "var contrib")
# CA
data(children)
res_ca <- FactoMineR::CA(children, row.sup = 15:18, col.sup = 6:8,
graph = FALSE)
## Get eigenvalues
extract(res_ca, "eig")
## Get individuals coordinates
extract(res_ca, "row coord")
## Get variables contribution
extract(res_ca, "col contrib")
## Get singular values
extract(res_ca, "svd vs")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.