data(IR_diabetes)
fit <- ic_par(cbind(left, right) ~ gender,
data = IR_diabetes)
diag_baseline(fit, lgdLocation = "topright",
dist = c("exponential", "weibull", "loglogistic"))
Run the code above in your browser using DataLab