# Piecewise exponential event rates of 0.5 for time 0-3, 0.4 for time 3-6, and 0.5 after
cumhaz <- cumhazard(eventRates=tibble::tibble(duration = c(3,3,100),rate = c(0.5, 0.4, 0.3)),
landmark=12)
Run the code above in your browser using DataLab