# NOT RUN {
library(survival)
time <- c(5,6,8,3,22)
age <- c(46,35,30,30,36)
drug <- c(0,1,1,1,0)
censor <- c(1,0,1,1,1)
survdat <- as.data.frame(cbind(time, age, drug, censor))
s <- survfit(Surv(survdat$time, survdat$censor) ~ 1, conf.type="none")
survPlot_gg(s)
# }
Run the code above in your browser using DataLab