values <- c(13,21,21,40,42,48,55,72) median(values)