[CRMAJU2018] kmeans 예제 - 은행마케팅

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)