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