diff --git a/vignettes/ebola.Rmd b/vignettes/ebola.Rmd index 06ac7b3d6..0da1d6bfe 100644 --- a/vignettes/ebola.Rmd +++ b/vignettes/ebola.Rmd @@ -175,22 +175,6 @@ obs_cens <- sierra_leone_ebola_data |> ) |> select(case, date_of_symptom_onset, date_of_sample_tested, age, sex, district) -head(sierra_leone_ebola_data) -``` - -Next, we use add interval censoring columns giving the lower and upper bounds on the (daily) primary and secondary event times. -We set the observation time to be the time of the final secondary event. - -```{r} -obs_cens <- sierra_leone_ebola_data |> - mutate( - ptime_lwr = floor(.data$ptime), - ptime_upr = .data$ptime_lwr + 1, - stime_lwr = floor(.data$stime), - stime_upr = .data$stime_lwr + 1, - obs_time = ceiling(max(.data$stime)) - ) - head(obs_cens) ```