15.2 Data: Cherry Blossom 5K

Cherry Blossom 5K and 10-mile races

# Load data
data(cherry_blossom_sample)
running <- cherry_blossom_sample %>% 
  select(runner, age, net)

table(running$runner)

## 
##  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