library(caret)
partition_idx <- createDataPartition (x$이탈여부, p=0.3)$Resample1
training <- x[partition_idx, ]
test <- x[-partition_idx, ]

library(caret)
tmp <- downSample(subset(x, select = -이탈여부), factor(dataset$이탈여부))
tmp <- upSample(subset(x, select = -이탈여부), factor(dataset$이탈여부))

• downSample:데이터가 적은 쪽에 맞춘다. 예를 들어, 생존=1000명, 이탈=100명이면 downSample은 생존=100명, 이탈=100명으로 맞춘다.
  
• upSample:데이터가 많은 쪽에 맞춘다.