str(Birth)
attach(Birth)
stem(X1998rate)
hist(X1998rate,breaks=seq(10.9,21.9,1.0),xlab="1998 Birth Rate",
main="Figure 1.14 in BSDA",col="pink")
hist(X1998rate,breaks=seq(10.9,21.9,1.0),xlab="1998 Birth Rate",
main="Figure 1.14 in BSDA",col="pink",prob=TRUE)
lines(density(X1998rate),col="red",lwd=2)
detach(Birth)
Run the code above in your browser using DataLab