Run »
values <- c(13,21,21,40,48,55,72) max(values) - min(values)
[1] 59