Сравнение моделей Вейбулла и лог-нормальной модели I
В этом упражнении нам нужно добавить корректные вероятности выживания в датафрейм. Этот датафрейм будет использоваться для построения кривых выживаемости. surv_wide — это датафрейм в широком формате, содержащий информацию о гормональной терапии и кривые выживаемости для моделей Вейбулла и лог-нормальной модели.
Пакеты survival, survminer и reshape2, а также данные GBSG2 уже загружены для вас в этом упражнении.
Это упражнение является частью курса
Анализ выживаемости в R
Инструкции к упражнению
- Преобразуйте датафрейм в длинный формат.
- Используйте
surv_long$surv_id, чтобы добавить в датафрейм корректные вероятности выживанияsurv.
Интерактивное практическое упражнение
Попробуйте выполнить это упражнение, дополнив этот пример кода.
# Melt the data.frame into long format.
surv_long <- melt(surv_wide, ___ = c("horTh", "dist"), ___ = "surv_id", ___ = "time")
# Add column for the survival probabilities
surv_long$surv <- surv[as.numeric(surv_long$___)]
# Add columns upper, lower, std.err, and strata contianing NA values
surv_long[, c("upper", "lower", "std.err", "strata")] <- NA