# NOT RUN {
data(decathlon)
res.pca <- PCA(decathlon, quanti.sup = 11:12, quali.sup = 13, graph = FALSE)
graph.var (res.pca, draw = c("var","Points"),
label = c("Long.jump", "Points"))
# }
Run the code above in your browser using DataCamp Workspace