heights <- c(151, 160, 162, 155, 154, 154, 153, 168, 169, 153, 158, 166, 152, 157, 150, 169, 167)
range(heights)

[1] 150 169

IQR(heights)

[1] 13