# NOT RUN {
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