Adds `time_to_bt`, `ott_ebrt`, and `time_to_bt_percent` columns to a data frame based on EBRT start and end dates.
Arguments
- x
Data frame containing `embrace_id`, `ebrt_start_date_tdvh`, `ebrt_end_date_tdvh`, and `fraction01date_tdvh`.
Value
Data frame with additional columns `time_to_bt`, `ott_ebrt`, and `time_to_bt_percent`.
Examples
if (FALSE) { # \dontrun{
df <- data.frame(
embrace_id = c(1, 2),
ebrt_start_date_tdvh = as.Date(c("2022-01-01", "2022-01-15")),
ebrt_end_date_tdvh = as.Date(c("2022-01-31", "2022-02-15")),
fraction01date_tdvh = as.Date(c("2022-01-05", "2022-01-18"))
)
add_time_to_bt(df)
} # }