对比 Weibull 模型与 Kaplan-Meier 估计
让我们为 GBSG2 数据绘制来自 Weibull 模型的生存曲线吧！
在本练习中，已经为您加载好了 survival 与 survminer 包，以及 GBSG2 数据。
本练习是课程的一部分
R 中的生存分析
练习说明
- 为
GBSG2数据拟合 Weibull 模型。 - 基于该模型计算生存曲线。
- 绘制两种估计得到的生存曲线并进行对比。
交互式实操练习
通过完成这段示例代码来试试这个练习。
# Weibull model
wb <- ___(___(___, ___) ~ ___, ___)
# Retrieve survival curve from model
surv <- seq(.99, .01, by = -.01)
# Get time for each probability
t <- predict(___, type = ___, p = ___, newdata = data.frame(___))
# Create data frame with the information needed for ggsurvplot_df
surv_wb <- data.frame(time = ___, surv = ___,
upper = NA, lower = NA, std.err = NA)
# Plot
ggsurvplot_df(fit = ___, surv.geom = ___)