#  (gH)   -_-  poursweave.r  ;  TimeStamp (unix) : 06 Novembre 2013 vers 11:24

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

demoSw <- function(dossier,nbl,initia,act) {

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

if (dossier=="iris") {
   data(iris)
   lesdata <- iris
   irisqt <- iris[,(1:4)]
} else {
   elf <- lit.dar("http://forge.info.univ-angers.fr/~gh/Datasets/elf.dar")
   lesdata <- elf
   attach(elf)
   sexe <- SEXE
   age  <- AGE
   etud <- ETUD
   msx  <- "homme femme"
   met  <- c("non reponse","cep","bepc","bac","sup")
   sx   <- as.factor(ifelse(sexe==0,"homme","femme"))
   detach(elf)
} ; # finsi

# démo 1 : les données

if (act==1) {
  return(dim(lesdata)[1])
} ; # finsi

attach(lesdata)

# démo 2 : les calculs (1)

if (act==2) {
  print(head(lesdata))
  cat("..\n")
  print(tail(lesdata))
} ; # finsi

# démo 3 : les calculs (2)

if (act==3) {
   if (dossier=="iris") {
      print(summary(lesdata[,-5]))
      print(cor(irisqt))
      mdc(irisqt,colnames(irisqt))
   } else {
      cats("Variable AGE")
      print(summary(lesdata[,"AGE"]))
      cats("Variable SEXE")
      print(summary(sx))
      print(anova(lm(age~sexe)))
   } ; # finsi
} ; # finsi

# démo 4 : les calculs (3) et les graphiques

if (act==4) {
   if (dossier=="iris") {
      pairs(iris[1:4], main="Edgar Anderson's Iris Data", pch=21,bg = c("red", "green3", "blue")[unclass(iris$Species)])
   } else {
      triCroise("SEXE",sexe,msx,"NIVEAU D'ETUDES",etud,met,TRUE)
   } ; # finsi
} ; # finsi

# démo 5, 6 et 7 : encore des calculs et des graphiques

if (act==5) {
   if (dossier=="iris") {
     decritQT("sepal.len",irisqt[,1],"cm",TRUE)
   } else {
     decritQT("AGE",age,"ans",TRUE)
   } ; # finsi
   scr(1)
} ; # finsi

if (act==6) {
   if (dossier=="iris") {
      decritQTparFacteurTexte("sepal.length",Sepal.Length,"cms","espece",Species,levels(Species),TRUE,"")
   } else {
      decritQTparFacteur("AGE",age,"ans","SEXE",sexe,"homme femme",TRUE,"")
   } ; # finsi
} ; # finsi

if (act==7) {
   if (dossier=="iris") {
      decritQTparFacteurTexte("sepal.length",Sepal.Length,"cms","espece",Species,levels(Species),TRUE,"",1)
   } else {
      decritQTparFacteurTexte("AGE",age,"ans","SEXE",sx,levels(sx),TRUE,"",1)
   } ; # finsi
} ; # finsi

detach(lesdata)

} ; # fin de fonction demoSw