##################################################################

moyPair <- function(nomData) {

##################################################################

# 1. lecture des données

dataFic  <- paste(nomData,".dar",sep="")
donnees  <- read.table(dataFic,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)

# écriture des moyennes dans un fichier txt

resFic <-  paste(nomData,"_moy.txt",sep="")
sink(resFic)
print(matMoy)
sink()
cat(" le fichier ",resFic," contient les moyennes en colonne.\n")

# 3. tracé par paires

pairs(donnees,main="wines")
outPdf <- paste(nomData,"_pair.pdf",sep="")
pdf(outPdf)
pairs(donnees,main="wines")
dev.off()
cat(" le fichier ",outPdf," contient le graphique par paires.\n")

} # fin de fonction moyPair

##################################################################

# exemple d'utilisation :
#
#      moyPair("wines")