Data for Exercise 1.107
Artifici
A data frame/tibble with 15 observations on one variable
duration (in hours) for transplant
Kitchens, L. J. (2003) Basic Statistics and Data Analysis. Pacific Grove, CA: Brooks/Cole, a division of Thomson Learning.
stem(Artifici$duration, 2)
#>
#> The decimal point is at the |
#>
#> 1 | 8
#> 2 | 1345568
#> 3 | 01158
#> 4 |
#> 5 |
#> 6 | 5
#> 7 | 0
#>
summary(Artifici$duration)
#> Min. 1st Qu. Median Mean 3rd Qu. Max.
#> 1.800 2.450 2.800 3.267 3.300 7.000
values <- Artifici$duration[Artifici$duration < 6.5]
values
#> [1] 3.5 3.8 3.1 2.8 2.5 2.6 2.4 2.1 1.8 2.3 3.1 3.0 2.5
summary(values)
#> Min. 1st Qu. Median Mean 3rd Qu. Max.
#> 1.800 2.400 2.600 2.731 3.100 3.800