tmin <- "2021-01-01"
tmax <- "2021-04-10"
Dt <- rep(750, nrow(psa_data$Baseline))
risk_measures <- calculate_risk(
psa_data,
tmin = tmin,
tmax = tmax,
Dt = Dt,
Dt_max = TRUE
)
tabulate_risk(
risk_measures,
n_s = length(psa_data)
)
Run the code above in your browser using DataLab