Calculate Time to Disease Event

Determines the latest assessment date for a disease event and calculates the follow-up time in months from histology assessment to this date. If no disease event is found, the follow-up time is calculated from the histology assessment to the latest assessment date.

Usage

add_time_to_diseaseevent(df)

Arguments

df

A data frame with assessment dates and disease status information

Value

A data frame with added columns: `latest_assessment_date_disease`, `timetoevent_disease`, and `latest_followup_id`

Examples

if (FALSE) { # \dontrun{
df <- data.frame(
  embrace_id = 1,
  assessment_date_3m = as.Date("2022-03-01"),
  assessment_date_6m = as.Date("2022-06-01"),
  histology_assesment_date = as.Date("2022-01-01"),
  disease_local_status_3m = 0,
  disease_local_status_6m = 2,
  disease_nodal_status_3m = 0,
  disease_nodal_status_6m = 0,
  disease_systemic_status_3m = 0,
  disease_systemic_status_6m = 0
)
result <- add_time_to_diseaseevent(df)
} # }