if (FALSE) { # rlang::is_installed("xrf")
library(xrf)
xrf_big <- function() {
boop <- runif(1e6)
xrf(
mpg ~ .,
mtcars,
xgb_control = list(nrounds = 2, max_depth = 2),
family = 'gaussian'
)
}
heavy_m <- xrf_big()
m <- butcher(heavy_m, verbose = TRUE)
weigh(heavy_m)
weigh(m)
}
Run the code above in your browser using DataLab