D <- c(10,12,13,15,17,20,21,23,24)
L <- function(x) {a <- 0; for(i in 1:length(D)) a <- a+abs(D[i]-x); a}
plot(L,min(D),max(D),lwd=2)
abline(v=axTicks(1), h=axTicks(2), col="blue",lty=3)
points(D,L(D),col="red",pch=19)
m <- median(D); m; points(m,L(m),pch=19,col="blue")
# 17

I comandi precedenti, in R, danno luogo al grafico a fianco. Modifica i dati messi in D e riesegui i comandi. Che cosa viene messo in luce?