Données <- read.table("https://husson.github.io/livre_exo/chap2_ex4.csv", header = TRUE, sep=";", encoding = "latin1") ech <- Données[c(34,66,06,80,65),2] ## on prend les 5 départements du corrigé t.test(ech) ## L'intervalle fournit n'est pas le bon car il ne prend pas en compte le fait que la population est de taille finie