#----- Decision Tree -------- library(party) t1 <- ctree(isIF ~., controls = ctree_control(maxdepth = 5, minbucket=10), data=dfbasetrain) plot(t1) #---- k-means example ------------ #--- RFM 군집화 예제 --- fit <- kmeans(df_RFM[8:10], 5) table(fit$cluster) plot(jitter(df_RFM$gF), jitter(df_RFM$gM), col=fit$cluster) par(mfrow=c(1,2)) plot(jitter(df_RFM$gR), jitter(df_..