เตรียมและแบ่งข้อมูล

# Transform all character values to factors
attrition <- 
  attrition %>%
  mutate(___(where(___), as_factor))
  
# Create train and test splits
set.seed(123)
split <- initial_split(attrition, strata = Attrition)
test <- ___(split)
train <- ___(___)

glimpse(train)