Skip to contents

Adds `time_to_bt`, `ott_ebrt`, and `time_to_bt_percent` columns to a data frame based on EBRT start and end dates.

Usage

add_time_to_bt(x)

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)
} # }