use the linelist output with linelist::tags_df() from episode 2 as input for episode 3

[avallecam]

this will show the connection between linelist and incidence2 more clearly

library(outbreaks)
library(tidyverse)
library(linelist)

ebola <- outbreaks::ebola_sim_clean %>% pluck("linelist")

ebola %>% 
  as_tibble() %>% 
  # tag
  linelist::make_linelist(
    id = "case_id",
    date_onset = "date_of_onset",
    date_admission = "date_of_hospitalisation",
    gender = "gender"
  ) %>%
  # use tagged-only
  linelist::tags_df() %>%
  # analyse
  incidence2::incidence("date_onset", groups = c("gender")) %>%
  plot(angle = 45)

^{Created on 2024-07-29 with reprex v2.1.0}