library(tidyverse) library(tidymodels) library(vip) library(rpart.plot) library(ranger) # Load employee attrition data employee_data % mutate(left_company = factor(left_company, levels = c('Yes', 'No'))) ``` ### Data Splitting First we split our data into training and test sets. We also create 5 cross validation folds from our training data for hyperparameter tuning. ```{r} set.seed(271) # Create a split object employee_split % ?? # Build testing data set employee_test % ?? ## Cross Validation folds employee_folds