library(dplyr)
# Credit Card Default Data
head(ISLR::Default)
# Generate data for the example
sb <- ISLR::Default %>%
split_by(default)
train <- sb %>%
extract_set(set = "train")
test <- sb %>%
extract_set(set = "test")
Run the code above in your browser using DataLab