632
Le logiciel R
3.7- nutriage <- read.xls("http://www.biostatisticien.eu/
springeR/nutriage.xls")
nrow(nutriage[nutriage$poisson==0 & nutriage$viande==0,])
Il n’y a aucun v´ eg´ etarien parmi les individus ´ etudi´ es.
• Fichier Intima Media.xls
3.1- Intima <- read.xls("http://www.biostatisticien.eu/
springeR/Intima_Media.xls")
Intima <- transform(Intima,IMC=poids/(taille/100)^2)
# ou de fa¸ con ´ equivalente:
# IMC <- Intima$poids/((Intima$taille/100)^2)
# Intima <- cbind(Intima,IMC)
3.2- Intima$mesure[Intima$IMC>30]
3.3- Intima[Intima$SPORT==1,]
3.4- Intima[Intima$IMC<=30 & Intima$AGE>=50,]
• Fichier imcenfant.xls
3.1- imcenfant <- read.xls(
"http://www.biostatisticien.eu/springeR/imcenfant.xls")
imcenfant <- transform(imcenfant,IMC=poids/(taille/100)^2)
# ou de fa¸ con ´ equivalente:
# IMC <- imcenfant$poids/((imcenfant$taille/100)^2)
# imcenfant <- cbind(imcenfant,IMC)
3.2- subset(imcenfant,IMC<15 & an<=3.5 & mois <=5)
# ou de fa¸ con ´ equivalente:
# imcenfant[imcenfant$IMC<15 & imcenfant$an <=3 &
#
imcenfant$mois<=5,]
3.3- sum(imcenfant$IMC<15 & imcenfant$an<=3 & imcenfant$mois<=5)
# ou de fa¸ con ´ equivalente:
# nrow(imcenfant[imcenfant$IMC<15 & imcenfant$an<=3 &
imcenfant$mois<=5,])
On trouve 7 enfants.