Data for Exercise 1.47

`Situp`

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

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

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