## Wines example from the documentation of the 'FactoMineR' package

### Loading FactoMineR
library(FactoMineR)

### Read data
data(wine)

### PCA with supplementary variables
res <- PCA(wine[,-(1:2)])

### Print the main results
summary(res)

## Drawing wines according to the label
plot(res, habillage="ind") #"Label")