## (gH)   -_-  co-occur1.r

# on lit le ficher elf1.txt, on ajoute au tri croisé
# des colonnes SEXE et ETUD les pourcentages globaux


#  Utilisation :
#     Rscript --encoding=latin1 --vanilla co-occur1.r


data     <- read.table("elf1.txt",header=TRUE)
sexe     <- data$SEXE
etud     <- data$ETUD
m_sexe   <- c("Homme","Femme")
m_etud   <- c("NR","Primaire","Secondaire","Bac","Supérieur")
sex      <- factor(sexe,levels=0:1,labels=m_sexe)
etu      <- factor(etud,levels=0:4,labels=m_etud)
tc       <- table(etu,sex)
pctsSexe <- paste(round(100*prop.table(table(sex)),1),"%")
pctsEtud <- paste(round(100*prop.table(table(etu)),1),"%")
tc       <- rbind(tc,pctsSexe)
tc       <- cbind(tc,c(pctsEtud," "))
row.names(tc)[1 + length(m_etud)] <- "pct Sexe"
colnames(tc)[ 1 + length(m_sexe)] <- "pct Etud"
print(tc,quote=FALSE)