Données <- read.table("https://husson.github.io/livre_exo/chap1_ex5.csv", header = TRUE, sep=";", encoding = "latin1")
mean(Données[,2])
var(Données[,2])
median(Données[,2])
diff(range(Données[,2]))
quantile(Données[,2],0.75)-quantile(Données[,2],0.25)  ## le logiciel calcul un peu différemment les quartiles.