library(finalfit)
library(dplyr)
# Survival plot
data(colon_s)
explanatory = c("perfor.factor")
dependent = "Surv(time, status)"
colon_s %>%
surv_plot(dependent, explanatory, xlab="Time (days)", pval=TRUE, legend="none")
Run the code above in your browser using DataLab