Données <- read.table("https://husson.github.io/livre_exo/chap1_ex6.csv", header = TRUE, sep=";", encoding = "latin1")
mean(Données[,2])
median(Données[,2])
mean(Données[-20,2])    ## on enlève l'élève 20
median(Données[-20,2])  ## on enlève l'élève 20