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

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

_Originally posted by @avallecam in https://github.com/epiverse-trace/tutorials-early/pull/127#discussion_r1781040697_