data-raw/DATASET.R

In mwhalen18/krspHelpR:

## code to prepare `DATASET` dataset goes here

fla = read.csv("https://raw.githubusercontent.com/KluaneRedSquirrelProject/krsp-functions/master/generations3.csv", header = T, stringsAsFactors = F) %>%
  select(squirrel_id, generation, maternal_generation) %>%
  mutate(squirrel_id = as.integer(squirrel_id))
usethis::use_data(fla, overwrite = T)

food_add = read.csv("https://raw.githubusercontent.com/KluaneRedSquirrelProject/krsp-functions/master/fed_squirrels.csv", header = T, stringsAsFactors = F) %>%
  filter(!is.na(squirrel_id_spring)) %>%
  mutate(bucket = "Y") %>%
  select(squirrel_id= squirrel_id_spring, year, bucket)
usethis::use_data(food_add, overwrite = T)