Fumeur <- read.table("https://husson.github.io/livre_exo/chap7_ex5.csv", header = TRUE, sep=";",row.names=1, encoding = "latin1") ## question 1 chisq.test(Fumeur[,1:2], correct = FALSE) ## Donne le test (l'argument correct permet d'avoir le test brut, sans correction) chisq.test(Fumeur[,1:2])$expected ## Donne les valeurs sous l'hypothèse d'indépendance ## question 2 chisq.test(Fumeur[,3:6]) ## Donne le test chisq.test(Fumeur[,3:6])$expected ## Donne les valeurs sous l'hypothèse d'indépendance ## question 3 don <- matrix(apply(Fumeur[,3:6],2,sum),ncol=2,byrow=T) rownames(don) <- c("Père fumeur","Père non fumeur") colnames(don) <- c("Mère fumeuse","Mère non fumeuse") chisq.test(don, correct = FALSE) ## Donne le test (l'argument correct permet d'avoir le test brut, sans correction) chisq.test(don, correct = FALSE)$expected ## Donne les valeurs sous l'hypothèse d'indépendance ## question 4 don <- matrix(c(Fumeur[,2],sum(Fumeur[,c(3,5)]),sum(Fumeur[,c(4,6)])),ncol=2,byrow=T) rownames(don) <- c("Filles","Mères") colnames(don) <- c("Fumeur","Non fumeur") chisq.test(don, correct = FALSE) ## Donne le test (l'argument correct permet d'avoir le test brut, sans correction) chisq.test(don, correct = FALSE)$expected ## Donne les valeurs sous l'hypothèse d'indépendance