Порівняння моделей Weibull і лог-нормальної I
У цій вправі ми хочемо додати правильні ймовірності виживання до датафрейму. Цей датафрейм буде використано для побудови кривих виживання. surv_wide — це «широкий» датафрейм, що містить інформацію про гормонотерапію та криві виживання для моделей Weibull і лог-нормальної.
Пакети 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