Chapitre 13. Analyse de variance ´ el´ ementaire
543
Traitements
T 1 (placebo) T 2 T 3 T 4 T 5
5
4
6
7
9
8
6
4
4
3
7
6
4
6
5
7
3
5
6
7
10
5
4
3
7
8
6
3
5
6
L’objectif ici est de comparer les moyennes th´ eoriques des d´ elais de cicatrisation, d´ elais observ´ es sur cinq ´ echantillons ind´ ependants (groupes de
traitement).
Inspection graphique : Tout d’abord, nous allons effectuer une br` eve analyse descriptive de ces donn´ ees pour voir si certaines tendances probables
se d´ egagent.
> X<-data.frame(Placebo=c(5,8,7,7,10,8),T2=c(4,6,6,3,5,6),
+
T3=c(6,4,4,5,4,3),T4=c(7,4,6,6,3,5),T5=c(9,3,5,7,7,6))
> delai <- stack(X)$values # stack() permet d’opérer un
# empilement.
> traitement <- stack(X)$ind
> tapply(delai,traitement,summary)
$Placebo
Min. 1st Qu. Median
Mean 3rd Qu.
Max.
5.0
7.0
7.5
7.5
8.0
10.0
$T2
Min. 1st Qu. Median
Mean 3rd Qu.
Max.
3.00
4.25
5.50
5.00
6.00
6.00
$T3
Min. 1st Qu. Median
Mean 3rd Qu.
Max.
3.000
4.000
4.000
4.333
4.750
6.000
$T4
Min. 1st Qu. Median
Mean 3rd Qu.
Max.
3.000
4.250
5.500
5.167
6.000
7.000
$T5
Min. 1st Qu. Median
Mean 3rd Qu.
Max.
3.000
5.250
6.500
6.167
7.000
9.000