# NOT RUN {
# To obtain the entire dataset, run the following code:
library(readr)
library(dplyr)
goose <-
"https://github.com/fivethirtyeight/data/raw/master/goose/goose_rawdata.csv" %>%
read_csv(na = c("", "NA"))
# }
Run the code above in your browser using DataLab