Scribd
Importer
165 vues2 pages

Tests Statistiques Corrigés en R

Cinq exercices présentent des tests statistiques réalisés sur des données issues d'expériences ou d'observations. Les tests portent sur l'indépendance entre caractères, la différence entre une moyenne expérimentale et une valeur de référence, la différence entre sexes, entre mois et entre espèces.

Transféré par

MAMIRAS
Copyright
© All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd
165 vues2 pages

Tests Statistiques Corrigés en R

Cinq exercices présentent des tests statistiques réalisés sur des données issues d'expériences ou d'observations. Les tests portent sur l'indépendance entre caractères, la différence entre une moyenne expérimentale et une valeur de référence, la différence entre sexes, entre mois et entre espèces.

Transféré par

MAMIRAS
Copyright
© All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd

Exercice 1

Cance Non cancer


r
Fumeur 342 258
Non-fumeur 158 242

Question: Faire un test d’indépendance pour établir la liaison entre ces caractères, α= 0.05.

tab=matrix(c(342,158,258,242),ncol=2)
rownames(tab)=c("Fumeur","Non-Fumeur")
colnames(tab)=c("Cancer","Non Cancer")
[Link](tab,correct=FALSE) # test de khi 2 sans la correction de continuité de Yates#
Exercice 2
Question: Peut-on mettre en évidence, avec un risque d’erreur a de 5%, que la moyenne
expérimentale diffère de la valeur de référence ?

cuivre<-[Link]("C:/Users/Belhouari/Desktop/contôles/[Link]",h=T,sep=";",dec=",")

attach(cuivre)

[Link](Cu,mu=1.356)

Exercice 3
Question: Peut-on déceler, avec un risque d’erreur a de 5%, une différence de la moyenne du poids
(g) chez l’individu adulte entre mâles et femelles ?

poids<-[Link]("C:/Users/Belhouari/Desktop/contôles/[Link]",h=T,sep=";")

attach(poids)

head(poids,1)

print(tapply(y,sexe,[Link])) # Test de normalité pour les 2 modalités du sexe#

[Link](y~sexe) # Test d'égalité des variances#

[Link](y~sexe,[Link]=T) #test de Student avec variances égales#

Exercice 4
Question: Peut-on observer entre Août (A) et Novembre (N) une différence, avec un risque d’erreur a
de 5%, de concentration en Aluminium dans le bois de Peuplier ?

alum<-[Link]("C:/Users/Belhouari/Desktop/contôles/[Link]",h=T,sep=";",dec=",")

attach(alum)
head(alum)

[Link](conc~mois,paired=T) #test de Student de 2 moyennes appartenant à 2 échantillons appariés#

Exercice 5
Question: Peut-on déceler, avec un risque d’erreur a de 5%, une différence de la moyenne de la
longueur du pétiole (mm) entre ces 3 espèces de Chêne ?

long<-[Link]("C:/Users/Belhouari/Desktop/contôles/[Link]",h=T,sep=";",dec=",")

attach(long)

head(long,1)

print(tapply(long$y,long$x,[Link])) # Test de normalité pour les 3 modalités du Quercus#

res<-aov(y~x,data=long)

summary(res)

TukeyHSD(res)

Vous aimerez peut-être aussi