data <- c(37, 64, 32, 28, 50, 70, 8, 9, 88, 14, 10, 25)
mean(data)
## [1] 36.25
summary(data)
## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 8.00 13.00 30.00 36.25 53.50 88.00
boxplot(data)