From 1b53f177ccdaf5f718e9bc0946eb69c3e2819aea Mon Sep 17 00:00:00 2001
From: Andree Valle Campos <avallecam@gmail.com>
Date: Mon, 30 Sep 2024 22:34:32 +0100
Subject: [PATCH] select columns after timespan

---
 episodes/clean-data.Rmd | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/episodes/clean-data.Rmd b/episodes/clean-data.Rmd
index 8cac5d21..b182bb51 100644
--- a/episodes/clean-data.Rmd
+++ b/episodes/clean-data.Rmd
@@ -352,7 +352,7 @@ sim_ebola_data <- cleanepi::timespan(
 )
 
 sim_ebola_data %>%
-  dplyr::glimpse()
+  dplyr::select(case_id, date_sample, time_since_sampling_date, remainder_months)
 ```
 
 After executing the function `cleanepi::timespan()`, two new columns named `time_since_sampling_date` and `remainder_months` are added to the **sim_ebola_data** dataset, containing the calculated time elapsed since the date of sampling for each case, measured in years, and the remaining time measured in months.