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")