evaluate to change {rio} with {readr} for tibble outputs and use less code

[avallecam]

raw_ebola_data <- readr::read_csv(
  here::here("data", "simulated_ebola_2.csv")
)

Originally posted by @avallecam in #127 (comment)