# NOT RUN {
time_dep_function <- piecewise_xy(c(5),
list(gompertz(0.1, 0.005), gompertz(0.08, 0.005)))
time_dep_function(0, 65) # death intensity at time 0 and age 65.
# }
Run the code above in your browser using DataCamp Workspace