数据集及软件
作业中遇到的问题,觉得保存之后制图调用代码会很方便。
需要导入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="weibull")
summary(fit2)
mu <- fit2$coefficients
sigma <- fit2$scale
lambda.hat<- exp(-mu)
alpha.hat<- 1/sigma