
Last chance! 50% off unlimited learning
Sale ends in
Data for Exercise 1.47
Situp
A data frame with 20 observations on the following variable.
number
a numeric vector
# NOT RUN {
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