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.