data-raw/wildschwein_overlap_temp.R

In ComputationalMovementAnalysis/ComputationalMovementAnalysisData: Provides Data to use in the Course ComputationalMovementAnalysis

## code to prepare `wildschwein_overlap_temp` dataset goes here


# wildschwein_BE %>%
#   group_by(TierID, TierName, CollarID) %>%
#   summarise(
#     min = min(DatetimeUTC),
#     max = max(DatetimeUTC)
#   ) %>%
#   ungroup() %>%
#   mutate(
#     TierCollar = paste(TierID, TierName, CollarID),
#     TierCollar = fct_reorder(TierCollar, min,.desc = TRUE)
#   ) %>%
#   ggplot(aes(xmin = min, xmax = max, y = TierCollar)) +
#   geom_errorbarh()



wildschwein_overlap_temp <- tibble::tribble(
  ~TierID,  ~TierName, ~CollarID, ~Groups,
   1L,     "Ueli",        12272L,    c(1),
   2L,   "Sabine",        12275L,    c(2),
   5L,   "Nicole",        12273L,    c(2),
  10L, "Caroline",        13969L,    c(2),
  11L, "Isabelle",        12274L,    c(2),
  16L,     "Rosa",        13972L,    c(2),
  18L,     "Ruth",        13974L,    c(2),
  25L,    "Fritz",        12272L,    c(2),
  10L, "Caroline",        13973L,    c(3, 4),
  31L,   "Claude",        13571L,    c(3),
  36L,     "Olga",        13976L,    c(3, 4),
  40L,    "Franz",        12273L,    c(4),
  48L,     "Amos",        13975L,    c(5, 6, 7, 8),
  22L,   "Miriam",        13571L,    c(5, 6, 7, 8, 9, 10, 11),
  60L,    "Venus",        12273L,    c(6),
  83L,   "Evelin",        12842L,    c(7, 8),
  84L,     "Gaby",        12843L,    c(8),
  60L,    "Venus",        13969L,    c(9),
  86L,    "Frida",        13972L,    c(9),
   1L,     "Ueli",        12844L,    c(9),
  10L, "Caroline",        13570L,    c(9),
  97L,    "Donar",        12272L,    c(10, 11),
  98L,   "Joanna",        13974L,    c(10, 11),
  84L,     "Gaby",        12274L,    c(11),
) %>%
  tidyr::unnest_longer(Groups)



usethis::use_data(wildschwein_overlap_temp, overwrite = TRUE)