I n i t i a t i o n ` a l ’ a n a l y s e s t a t i s t i q u e d e s d o n n ´ e e s e x p ´ e r i m e n t a l e s ( C o m p a r a i s o n s d e m o y e n n e s ) C h r i s t o p h e P a l l i e r e t C h r i s t o p h e L a l a n n e c h r i s t o p h e . p a l l i e r @ m 4 x . o r g / c h r i s t o p h e . l a l a n n e @ g m x . n e t M a s t ` e r e d e S c i e n c e s C o g n i t i v e s , E H E S S – P a r i s 5 – E N S S t a t s a v e c R – p . 1R a p p e l s b a s e d e l ’ i n f ´ e r e n c e p o p u l a t i o n , ´ e c h a n t i l l o n a l ´ e a t o i r e , d i s t r i b u t i o n d ’ ´ e c h a n t i l l o n n a g e t e s t s d ’ h y p o t h ` e s e s u r u n e s t a t i s t i q u e , s t a t i s t i q u e d e t e s t f o r m u l a t i o n d e H 0 r i s q u e s d ’ e r r e u r i n t e r v a l l e s d e c o n fi a n c e H v r a i e H f a u s s e 0 0 R e j e t d e H α 1 − α 0 A c c e p t a t i o n d e H 1 − β β 0 c o m p a r a i s o n s d e m o y e n n e s : t e s t t e t A N O V A ` a u n f a c t e u r ´ e c h a n t i l l o n s i n d ´ e p e n d a n t s o u a p p a r i ´ e s o b s e r v a t i o n u n i q u e o u r ´ e p l i q u e s S t a t s a v e c R – p . 2P u i s s a n c e d ’ u n t e s t S t a t s a v e c R – p . 3C o m p a r a i s o n ` a u n e m o y e n n e d e r ´ e f ´ e r e n c e 1 ´ e c h a n t i l l o n a l ´ e a t o i r e d e t a i l l e n H : μ = μ 0 0 e x e m p l e : x < - r n o r m ( 2 0 , m e a n = 0 . 7 5 ) p a r ( m f c o l = c ( 1 ...
on tient compte de la structure d’appariement dans l’estimation de la variance alternativenonparam´etrique:testdeMannWhitneyWilcoxon(rangs) wilcox.test()avec l’optionpaired=T
Stats avec R – p. 8
Comparaisondekenoym3/1sen
klitnahce´resiatoial´elonseialld.tei.d.nk H0:µ1=µ2=. . .=µk vs.H1:au moins une pairedmeyoneendsffi`ere exemple : ns < c(15,28,10,20,35) n < length(ns) group < factor(rep(1:n,ns),labels=paste("g",1:n,sep="")) data < rnorm(length(group),mean = 100 + (as.numeric(group)2)^2) par(mfrow=c(2,2)) plot(data~group) stripchart(data~group,method="jitter",vertical=T) plot.design(data~group) l < aov(data~group) summary(l)
Stats avec R – p. 9
Comparaisondeknney/2sem3o
poursuite de l’analyse : quelles sont les paires de moyennes significativementdiff´erentes(comparaisonsmultiples,posthoc) (hsd < TukeyHSD(l, "group", ordered = FALSE)) plot(hsd)
taille des effets : model.tables(l,se=T) summary.lm(l)
Stats avec R – p. 10
Comparaisondekoymneen/3s3
alternativenonparam´etrique:ANOVAdeKruskalWallis(rangs),avec la fonctionkruskal.test() N.B. ve´rificationdeshypothe`ses:(i)normalit´edesr´esidus(e.g.qqnorm(), ks.test()(e´ticitsade´cosom)hiit()ebartlett.test())