Weibull 모형과 Kaplan-Meier 추정 비교
GBSG2 데이터에 대해 Weibull 모형에서 얻은 생존곡선을 그려 봅시다!
이번 연습 문제에서는 survival과 survminer 패키지, 그리고 GBSG2 데이터가 이미 로드되어 있습니다.
이 연습은 강의의 일부입니다
R로 배우는 생존 분석
연습 안내
GBSG2데이터에 대해 Weibull 모형을 계산하세요.- 모형으로부터 생존곡선을 계산하세요.
- 두 추정법에서 얻은 생존곡선을 함께 시각화하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# 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 = ___)