iris %>%
framecleaner::create_dummies() -> iris_dummies
iris_dummies %>%
tidy_formula(target = Petal.Length) -> p_form
iris_dummies %>%
tidy_xgboost(p_form, mtry = .5, trees = 5L, loss_reduction = 2, sample_size = .7) -> xgb
## reuse these parameters to find the cross validated error
rlang::exec(auto_model_accuracy, data = iris_dummies, formula = p_form, !!!get_params(xgb))
Run the code above in your browser using DataLab