exo<-read.csv2("nutriage.csv")
attach(exo)
head(exo)

#Structurer les variables qualitatives

sexe <- as.factor(sexe)
levels (sexe) <- c ("Homme", "Femme")
situation <- as.factor(situation)
levels(situation) <- c("seul", "couple", "famille", "autre")
matgras <- as.factor(matgras)
levels(matgras) <- c("beurre", "margarine", "arachide", "tournesol", "olive", "Isio4", "colza", "canard")

#Structurer les variables ordinales

viande <- as.ordered(viande)
poisson <- as.ordered(poisson)
fruit_crus <- as.ordered(fruit_crus)
fruit_legume_cuits <- as.ordered(fruit_legume_cuits)
chocol <- as.ordered(chocol)
niveaux <- c ("jamais", "< l/sem.", "l/sem.", "2-3/sem. ","4-6/sem. ", "l/jour")
> levels(chocol) <- levels(fruit_legume_cuits) <-levels (fruit_crus) <- niveaux
> levels(poisson) <- levels(viande) <- niveaux

#Structurer les variables quantitatives discretes

the <- as. integer (the)
cafe <- as. integer (cafe)

#Structurer les variables quantitatives continues

taille <- as.double(taille)
poids <- as.double(poids)
age <- as.double(age)

#Tableaux des effectifs  d'une variable

tpe <- table(matgras) # Tri a plat en effectifs.
tpe

#Tableaux des frequences d'une variable 

tpf <- tpe/length(matgras) # Tri a plat en frequences.
tpf
levels(matgras) # Modalites.
nlevels(matgras) # Nombre de modalites.

#Tableaux de donnees regroupees en classes

res <- hist(taille,plot=FALSE)
nn <- as.character(res$breaks)
x <- as.table(res$counts)
dimnames(x) <- list(paste(nn[-length(nn)],nn[-l],sep="-"))
x

#Tableaux de contingence

matable <- table(sexe,situation)
matable

table. complete <- addmargins(matable,FUN=sum,quiet=TRUE)
table. complete

#Distribution conjointe

tableaufreq <- matable/sum(matable)
tableaufreq

#Si l'on veut aussi obtenir les marges

Total <- sum
addmargins(tableaufreq,FUN=Total,quiet=TRUE)