## (gH)   -_-  extraitFichierExcel.r  ;  TimeStamp (unix) : 10 Octobre 2018 vers 17:00

library(openxlsx)

cat("Ajout de la colonne grandesPetales\n")
nomFicExcel <- "iris.xlsx"
lesDonnees  <- read.xlsx(nomFicExcel)
lesDonnees  <- transform(lesDonnees,
                 grandesPetales=ifelse(largpet<2,0,1)
               ) # fin de transform
cat("Distribution de cette colonne :\n")
print(table(lesDonnees$grandesPetales))
write.xlsx(lesDonnees,file="irisG.xlsx")
cat("Vous pouvez utiliser le fichier irisG.xlsx qui contient\n")
print(head(lesDonnees))
cat("[...]\n")
print(system("ls -al irisG.xlsx"))