Comparar el modelo de Weibull y la estimación de Kaplan-Meier
¡Vamos a representar la curva de supervivencia que obtenemos del modelo de Weibull para los datos de GBSG2!
En este ejercicio ya están cargados los paquetes survival y survminer, y los datos GBSG2.
Este ejercicio forma parte del curso
Análisis de supervivencia en R
Instrucciones del ejercicio
- Calcula el modelo de Weibull para los datos de
GBSG2. - Obtén la curva de supervivencia a partir del modelo.
- Representa las curvas de supervivencia que obtienes con las dos estimaciones.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# 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 = ___)