Data: Cherry Blossom 5K
# Load data
data(cherry_blossom_sample)
running <- cherry_blossom_sample %>%
select(runner, age, net)
##
## 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
## 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7
## 27 28 29 30 31 32 33 34 35 36
## 7 7 7 7 7 7 7 7 7 7
summary(running$age, give.attr = FALSE)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 50.00 53.00 55.00 55.44 58.00 63.00
summary(running$net, give.attr = FALSE)
## Min. 1st Qu. Median Mean 3rd Qu. Max. NA's
## 61.52 80.30 89.38 89.95 99.50 131.00 67