# NOT RUN {
# Extracting model components
num_term_nodes <- function(x, ...) {
tibble::tibble(num_nodes = sum(x$frame$var == "<leaf>"))
}
set.seed(7687)
with_extras <- bagger(mpg ~ ., data = mtcars,
base_model = "CART", times = 5,
control = control_bag(extract = num_term_nodes))
dplyr::bind_rows(with_extras$model_df$extras)
# }
Run the code above in your browser using DataLab