# NOT RUN {
train_test <- train_test_split(UCICreditCard[1:1000,], split_type = "Random",
prop = 0.8, save_data = FALSE)
dat_train = train_test$train
dat_test = train_test$test
get_plots(dat_train[, c(8, 26)], dat_test = dat_test[, c(8, 26)],
target = "default.payment.next.month")
# }
Run the code above in your browser using DataLab