첫 구매일의 패턴이 성별에 따라 어떻게 다른가?
데이터 불러오기
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