read.csv2("intimedia.csv") #importer le fichier excel
int<-read.csv2("nutrition.csv") #rendre le fichier excel un objet de R 
attach(int)# indiquer les colonnes

####structurer les variables
#Structurer les variables qualitatives

sexe <- as.factor(SEXE)
levels (sexe) <- c ("Homme", "Femme")
tab <- as.factor(tabac)
levels(tab) <- c("Ne fume pas", "1=A arrete de fumer ","Fume")
spo <- as.factor(SPORT)
levels(spo) <- c("Non", "Oui")


#Structurer les variables ordinales
alc <- as.ordered(alcool)
levels(alc) <- c("Ne boit pas", "Boit occasionnellement alcool", "Boit regulierernent")


#Structurer les variables quantitatives discretes

paq <- as. integer (paqan)


#Structurer les variables quantitatives continues

tai <- as.double(taille)
poi <- as.double(poids)
age <- as.double(AGE)


###########ESTIMATION ET TEST
 binom.test(71,152)#proprtion
t.test(tai,mu=100)#moyenne
t.test(poi,mu=20)
       
require(sigma2.tools)#variance
sigma2.test(tai)
require(TeachingDemos)#variance
sigma.test(tai, sigma = 6)