생존분석

데이터를 이용해 사건이 언제(when) 일어나는지 예측하는 방법을 알아봅니다


수강중

11. 첫 구매일의 패턴이 성별에 따라 어떻게 다른가?

데이터 불러오기

library(survival)
sales <- read.csv('sales.csv', 
                  stringsAsFactors = F, 
                  fileEncoding = "UTF-8")

카플랜마이어를 이용하여 생존 분석 하기

res <- survfit(Surv(사용일, 구매여부)~1, data = sales, type = 'kaplan-meier')
plot(res)

성별을 고려하여 생존 분석 하기

res <- survfit(Surv(사용일, 구매여부)~성별, data = sales, type = 'kaplan-meier')
par(family = 'NanumGothic') ## MAC에서만 실행
plot(res, col = c('red', 'blue'))
legend('topright', legend = c('남', '여'), pch = 20, col = c('red', 'blue'))
res