library(parsnip)
new_mod <-
decision_tree() %>%
set_engine("rpart", method = "anova") %>%
set_mode("classification")
new_set <- update_workflow_model(two_class_res, "none_cart", spec = new_mod)
new_set
extract_workflow(new_set, id = "none_cart")
Run the code above in your browser using DataLab