Comparing Weibull and Log-Normal Model I
En este ejercicio, queremos añadir las probabilidades de supervivencia correctas a un data frame. Este data frame se usará para trazar las curvas de supervivencia. surv_wide es un data frame en formato ancho que contiene información sobre la terapia hormonal y las curvas de supervivencia para los modelos de Weibull y log-normal.
Los paquetes survival, survminer y reshape2, junto con los datos GBSG2, ya están cargados para ti en este ejercicio.
Este ejercicio forma parte del curso
Análisis de supervivencia en R
Instrucciones del ejercicio
- Convierte el data frame a formato largo con melt.
- Usa
surv_long$surv_idpara añadir las probabilidades de supervivencia correctassurval data frame.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# 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