# R-program for Supplementary Exercises 1.42 and 1.72 of IPS7e
# see also solution for 1:51 with discussion of alternative coding

ageUS <- read.csv("R:/Chapter 1/ex01_042.csv")
summary(ageUS)
stem(ageUS[["over65"]])
mean(ageUS[["over65"]])
sd(ageUS[["over65"]])
boxplot(ageUS)