# istogramma
hist(SLID$age)

# retta della mediana                 
abline(v = median(SLID$age),                  # mediana
       lwd = 2)