# NOT RUN {
data(tooth24)
fit <- icweib(L = left, R = right, data = tooth24, strata = dmf, covariates = ~sex)
surv <- plot(fit, Z = 1, tRange = c(1, 7), tEst=1:7, xlab = "Time", ylab = "Survival Function",
main = "Estimated survival function for sex = 1 (girls)")
# }
Run the code above in your browser using DataLab