Сравнение модели Вейбулла и оценки Каплана–Майера
Давайте построим кривую выживаемости на основе модели Вейбулла для данных GBSG2!
Пакеты survival и survminer, а также данные GBSG2 уже загружены в этом упражнении.
Это упражнение является частью курса
Анализ выживаемости в R
Инструкции к упражнению
- Постройте модель Вейбулла для данных
GBSG2. - Вычислите кривую выживаемости на основе этой модели.
- Отобразите на графике кривые выживаемости, полученные двумя методами.
Интерактивное практическое упражнение
Попробуйте выполнить это упражнение, дополнив этот пример кода.
# 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 = ___)