Porovnání Weibullova modelu a Kaplan-Meierova odhadu
Pojďme vykreslit křivku přežití získanou z Weibullova modelu pro data GBSG2!
Balíčky survival a survminer a data GBSG2 jsou v tomto cvičení načteny za tebe.
Toto cvičení je součástí kurzu
Survival Analysis in R
Pokyny k cvičení
- Vypočítej Weibullův model pro data
GBSG2. - Z modelu vypočítej křivku přežití.
- Vykresli křivky přežití získané z obou odhadů.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
# 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 = ___)