ordered_var_to_bniary_ind.R

library(tidymodels)
library(modeldata)

data(attrition)

ord_rec <- 
  recipe(Attrition ~ JobInvolvement + JobSatisfaction, data = attrition) %>% 
  step_dummy(all_nominal()) %>% 
  prep() %>% 
  juice() %>% 
  slice(1:10)

unord_rec <- 
  recipe(Attrition ~ JobInvolvement + JobSatisfaction, data = attrition) %>% 
  step_unorder(all_nominal(), -all_outcomes()) %>% 
  step_dummy(all_nominal(), -all_outcomes()) %>% 
  prep() %>% 
  juice() %>% 
  slice(1:10)