然后,您拟合截距模型。我生成了一些示例数据来说明这一点。
library(survival)
df <- data.frame(Status=c(0,1,0,1,0,1,0,1,0,1,0,1),
Time=c(30,10,15,30,3,1,14,30,28,30,20,30))
df$forKM <- with(df, Surv(Time, Status == 1))
fit <- survfit(forKM ~ 1, data = df)
plot(fit)
如果您不想在图中看到置信区间,则应指定:conf.int=F
.