str(Situp)
attach(Situp)
stem(number)
hist(number,breaks=seq(0,70,10))
hist(number,breaks=seq(0,70,10),right=FALSE,col="blue",prob=TRUE,
main="Problems 1.46 & 1.47")
lines(density(number),col="red",lwd=3)
detach(Situp)
Run the code above in your browser using DataLab