## ----echo=FALSE, message = FALSE, warning=FALSE-------------------------------
knitr::opts_chunk$set(collapse = T, comment = "#>")

## ----message = FALSE, warning=FALSE-------------------------------------------
library(factoextra)
library(FactoMineR)
library(booklet)
data(decathlon)

## -----------------------------------------------------------------------------
X <- decathlon[, -c(11:13)]
res_pca <- facto_pca(X, ncp = 5, quanti_sup = 10)

## -----------------------------------------------------------------------------
fviz_eig(res_pca)

## -----------------------------------------------------------------------------
fviz_pca_ind(res_pca)

## -----------------------------------------------------------------------------
fviz_pca_var(res_pca)