Comparando os modelos Weibull e Log-Normal I
Neste exercício, queremos adicionar as probabilidades de sobrevivência corretas a um data frame. Esse data frame será usado para plotar as curvas de sobrevivência. surv_wide é um data frame em formato wide que contém informações sobre terapia hormonal e as curvas de sobrevivência para os modelos Weibull e log-normal.
Os pacotes survival, survminer e reshape2, além dos dados GBSG2, já estão carregados para você neste exercício.
Este exercício faz parte do curso
Análise de Sobrevivência em R
Instruções do exercício
- Transforme o data frame para o formato long usando melt ("derreter").
- Use
surv_long$surv_idpara adicionar as probabilidades de sobrevivência corretassurvao data frame.
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
# 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