data-raw/bald_eagles.R

In mdogucu/bayesrules: Datasets and Supplemental Functions from Bayes Rules! Book

# Import from tidytuesday

bald_eagles <- readr::read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2019/2019-06-18/bird_counts.csv") %>% 
          rename(count = how_many_counted, hours = total_hours, count_per_hour = how_many_counted_by_hour) %>% 
          filter(species == "Bald Eagle", year > 1980) %>% 
          dplyr::select(-species, -species_latin) %>% 
          mutate(count_per_week = count_per_hour*7*24)

usethis::use_data(bald_eagles, overwrite = TRUE)