if (FALSE) { # rlang::is_installed("ranger") & rlang::is_installed("kernlab")
# \donttest{
# build a regression model stack
st <-
stacks() %>%
add_candidates(reg_res_lr) %>%
add_candidates(reg_res_sp) %>%
blend_predictions() %>%
fit_members()
# remove any of the "butcherable"
# elements individually
axe_call(st)
axe_ctrl(st)
axe_data(st)
axe_fitted(st)
axe_env(st)
# or do it all at once!
butchered_st <- butcher(st, verbose = TRUE)
format(object.size(st))
format(object.size(butchered_st))
# }
}
Run the code above in your browser using DataLab