# 1. lecture des données

nomfic  <- "wines.dar"
donnees <- read.table(nomfic,head=TRUE,row.names=1,as.is=TRUE)

# 2. calcul et affichage des moyennes

matmoy <- cbind(apply(X=donnees,FUN=mean,MARGIN=2))
colnames(matmoy) <- "Moyennes"
print(matmoy)

# 3. tracé par paires

pairs(donnees,main="wines")