deaths <- c(35,41,55,65,29,60,49,24,37,110,28,40,47,58,30,37,15,50,28)
hist(deaths)
mean(deaths)
## [1] 44.10526
sd(deaths)
## [1] 20.84038
summary(deaths)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 15.00 29.50 40.00 44.11 52.50 110.00
boxplot(deaths, horizontal = TRUE)