Data for Exercise 1.47

Situp

Format

A data frame/tibble with 20 observations on one variable

number

maximum number of situps completed in an exercise class after 1 month in the program

References

Kitchens, L. J. (2003) Basic Statistics and Data Analysis. Pacific Grove, CA: Brooks/Cole, a division of Thomson Learning.

Examples


stem(Situp$number)
#> 
#>   The decimal point is 1 digit(s) to the right of the |
#> 
#>   1 | 8
#>   2 | 4789
#>   3 | 1256779
#>   4 | 12
#>   5 | 45568
#>   6 | 2
#> 
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")