str(Framingh)
attach(Framingh)
stem(cholest)
hist(cholest,prob=TRUE,ylim=c(0,.012))
lines(density(cholest))
boxplot(cholest,col="brown")
sum(cholest>200&cholest<240)/length(cholest)
detach(Framingh)
Run the code above in your browser using DataLab