bnk01c <- bnk01[sample(1:nrow(bnk01), 1000), c("age", "balance", "duration")]
b1 <- bnk01[,c("age", "balance")]
m1 <- kmeans(b1, 3)
table(m1$cluster)
plot(b1$age, b1$balance, col=m1$cluster)
'CRM' 카테고리의 다른 글
| [강의 소개] 실전 타겟 마케팅과 고객세분화 활용 (0) | 2020.09.18 |
|---|---|
| [CRMAJU2018] R데이터분석 - 탐색적 고객세분화 :: 서점 데이터 활용 (0) | 2018.05.22 |
| [CRMAJU2018] Class 과제 :: 은행마케팅 - 20대 고객 탐색적 데이터 분석 (0) | 2018.05.10 |
| 앙상블 :: ensemble 배깅 그리고 random forest 개념 (0) | 2015.07.10 |
| How Insensitive [Lyrics] (0) | 2015.01.01 |