8.65 Grid tuning with finetune::race_anova()

Tune the xgboost model with race_anova() to accelerate the tuning speed.

# library(finetune)
# 
# set.seed(4242)
# 
# tictoc::tic()
# xgb_rs <- 
#      tune_race_anova(
#      xgb_wf, 
#      carseats_boot, 
#      grid = 30, 
#      control = control_race(verbose_elim = TRUE)
# )
# tictoc::toc()

# save xgb_rs
# write_rds(xgb_rs, 'data/08_boost_tree_racing_grid_results.rds')

xgb_rs <- read_rds('data/08_boost_tree_racing_grid_results.rds')
xgb_rs

## # Tuning results
## # Bootstrap sampling using stratification with apparent sample 
## # A tibble: 101 × 5
##    splits            id           .order .metrics          .notes          
##    <list>            <chr>         <int> <list>            <list>          
##  1 <split [300/113]> Bootstrap013      2 <tibble [60 × 8]> <tibble [0 × 3]>
##  2 <split [300/110]> Bootstrap057      3 <tibble [60 × 8]> <tibble [0 × 3]>
##  3 <split [300/114]> Bootstrap066      1 <tibble [60 × 8]> <tibble [0 × 3]>
##  4 <split [300/116]> Bootstrap042      4 <tibble [4 × 8]>  <tibble [0 × 3]>
##  5 <split [300/300]> Apparent         79 <tibble [2 × 8]>  <tibble [0 × 3]>
##  6 <split [300/115]> Bootstrap001    100 <tibble [2 × 8]>  <tibble [0 × 3]>
##  7 <split [300/107]> Bootstrap002     41 <tibble [2 × 8]>  <tibble [0 × 3]>
##  8 <split [300/116]> Bootstrap003     30 <tibble [2 × 8]>  <tibble [0 × 3]>
##  9 <split [300/109]> Bootstrap004     66 <tibble [2 × 8]>  <tibble [0 × 3]>
## 10 <split [300/106]> Bootstrap005     72 <tibble [2 × 8]>  <tibble [0 × 3]>
## # ℹ 91 more rows