生存時間分析: ノンパラメトリック

Rを使った生存時間分析（ノンパラメトリック）です。
# ノンパラメトリック
# カプランマイヤー（kaplan-meier）

# カプランマイヤー（kaplan-meier）

with(data=Dataset, Surv(time, status))[1:20]
survfit(Surv(time, status)~1, data=Dataset)

# カプランマイヤー曲線
survfit1 <- survfit(Surv(time, status)~1, data=Dataset)
plot(survfit1)

plot(survfit1, conf.int=FALSE, las=1, xlab="Survival Time (days)", ylab="Overall Survival")

# グループ別のカプランマイヤー曲線
survfit2 <- survfit(Surv(time,status)~multi_br, data=Dataset)
survfit2

plot(survfit2,las=1,xlab="Survival Time (days)", ylab="Overall Survivial", lty=1, col=1:2)