8.36 Visualize our decision tree

class_tree_fit %>% 
     extract_fit_engine() %>% 
     rpart.plot(roundint = FALSE)