# 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_psi_plots(dat_train[, c(8, 9)], dat_test = dat_test[, c(8, 9)])
# }
Run the code above in your browser using DataLab