library(tidyverse)
These data come from Jessica Utts. They are mentioned in the GAISE 2016 College report.
The times are for the fastest runner in each race.
Hillrace <- readr::read_csv("fastest_runner.csv") Hillrace <- Hillrace %>% gather(key = sex, value = time, male, female) save(Hillrace, file = "../../data/Hillrace.rda")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.