# Fit survival curves
require("survival")
fit <- survfit(Surv(time, status) ~ rx + adhere, data = colon)
# Summarize
res.sum <- surv_summary(fit)
head(res.sum)
# Information about the survival curves
attr(res.sum, "table")
Run the code above in your browser using DataLab