Create event for competing risk analysis (cmprsk::crr)

create_crevent(event, compevent, eventvalues = c("Yes", "Yes"))

Arguments

event: Event of interest.
compevent: Competing event (assumed to occur after event of interest).
eventvalues: Vector with values indicating event in event and compevent (in that order).

Value

Competing event variable where 1 = event, 2 = competing event, 0 = censoring.

Examples

suppressMessages(library(dplyr, quietly = TRUE), classes = "warnings")
#> 
#> Attaching package: 'dplyr'
#> The following object is masked from 'package:testthat':
#> 
#>     matches
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
rs_data <- rs_data %>% mutate(event_cr = create_crevent(out_hosphf, out_death_fac, eventvalues = c(1, "Yes")))