plot.survfit(survfit, conf.int=<<see below>>, mark.time=T, mark=3, col=1, lty=1, lwd=1, cex=1, log=F, yscale=1, xscale=1, xlab="", ylab="", xaxs='i', ...)
leukemia.surv <- survfit(Surv(time, status) ~ group, data = leukemia) plot(leukemia.surv, lty = 2:3) legend(100, .9, c("Maintenance", "No Maintenance"), lty = 2:3) title("Kaplan-Meier Curves0or AML Maintenance Study")