For each question you work on, set the eval chunk option to TRUE and knit

Change the author of this document to your name

Filter for bike crashes in Residential development areas where driver age group is 0 to 19.

ncbikecrash %>%

Group by whether the driver had consumed alcohol and find the average driver age in each group

ncbikecrash %>%
  group_by(---) %>%

Add a variable crash_summer that is equal to 1 if the crash month is June, July, or August, and 0 otherwise

ncbikecrash %>%
  mutate(crash_summer = case_when(