Ellen Dingwall

kids.ages = c(3, 6, 8, 11, 13, 15, 16)
mean(kids.ages)

## [1] 10.28571

hist(kids.ages)
rug(kids.ages, col="red")