用r绘制可靠性数据的Kaplan Meier estimate并用Weibull分布近似进行模型诊断

数据集及软件

作业中遇到的问题，觉得保存之后制图调用代码会很方便。
需要导入r中的“survival”包，用于生存性分析。
调用的数据是r中内置的ovarian（卵巢癌患者在接受两种治疗药物之后的生存时间）

KM统计量

作为生存性数据里非参数统计分析里最为重要的统计量之一，Kaplan-Meier 统计量

library(survival)
fit1 = survfit(Surv(ovarian$futime,ovarian$fustat)~1)
# 绘制带confidence bound的KM curves
plot(fit1,main="Kaplan-Meier estimate with 95% cofidence bounds", xlab = "days", ylab = "survival function", col=4)

Weibull分布近似估计

进行Weibull 分布近似

fit2<-survreg(Surv(ovarian$futime,ovarian$fustat)~1, dist="wei