Modérateur : Groupe des modérateurs
Code : Tout sélectionner
> mat<-matrix(c(784, 3160613-784, 404, 2904156-404), ncol=2)
>mat
[,1] [,2]
[1,] 784 404
[2,] 3159829 2903752
> chisq.test(mat)
Pearson's Chi-squared test with Yates' continuity correction
data: mat
X-squared = 91.162, df = 1, p-value < 2.2e-16
Code : Tout sélectionner
n1 <- 3160613
p1 <- 784/n1
ICp1 <- p1+c(-1,1)*1.96*sqrt(p1*(1-p1)/n1)
[1] 0.0002306916 0.0002654147
n2 <- 2904156
p2 <- 404/n2
ICp2 <- p2+c(-1,1)*1.96*sqrt(p2*(1-p2)/n2)
[1] 0.0001255467 0.0001526753
# les intervalles exacts
require(epitools)
binom.exact(p1*n1,n1)
x n proportion lower upper conf.level
1 784 3160613 0.0002480531 0.0002309933 0.0002660393 0.95
binom.exact(p2*n2,n2)
x n proportion lower upper conf.level
1 404 2904156 0.0001391110 0.0001258758 0.0001533591 0.95
Retourner vers « Questions en cours »
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité