# NOT RUN {
# Corresponds to scenario 5 of Table 2 from Leifer, Troendle, et al. (2019).
rateC <- 0.0445
hrA <- 0.80
hrB <- 0.80
hrAB <- 0.72
mincens <- 4.0
maxcens <- 8.4
eventProb(rateC, hrA, hrB, hrAB, mincens, maxcens)
# hazC
# [1] 0.04552052
# probC
# [1] 0.2446365
# probA
# [1] 0.201254
# probB
# [1] 0.201254
# probAB
# [1] 0.1831806
# avgprob
# [1] 0.2075813
# probAB_C
# [1] 0.2139086
# }
Run the code above in your browser using DataCamp Workspace