Skip to content

Commit

Permalink
Reabase fix for Ebola vignette
Browse files Browse the repository at this point in the history
  • Loading branch information
athowes committed Nov 15, 2024
1 parent f36c9ff commit dbc793c
Showing 1 changed file with 0 additions and 16 deletions.
16 changes: 0 additions & 16 deletions vignettes/ebola.Rmd
Original file line number Diff line number Diff line change
Expand Up @@ -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)
```

Expand Down

0 comments on commit dbc793c

Please sign in to comment.