# NOT RUN {
stem(Situp$number)
hist(Situp$number, breaks = seq(0, 70, 10), right = FALSE)
hist(Situp$number, breaks = seq(0, 70, 10), right = FALSE,
freq = FALSE, col = "pink", main = "Problem 1.47",
xlab = "Maximum number of situps")
lines(density(Situp$number), col = "red")
# }
Run the code above in your browser using DataLab