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