R butcher axe-sclass 砍掉一個 sclass 對象。

# S3 method for sclass
axe_call(x, verbose = FALSE, ...)

# S3 method for sclass
axe_env(x, verbose = FALSE, ...)

# Load libraries
library(ipred)
library(rpart)
library(MASS)

# Load data
data("GlaucomaM", package = "TH.data")

classbagg_fit <- bagging(Class ~ ., data = GlaucomaM, coob = TRUE)

out <- butcher(classbagg_fit$mtrees[[1]], verbose = TRUE)
#> ✔ Memory released: 4.26 MB

# Another classbagg object
wrapped_classbagg <- function() {
  some_junk_in_environment <- runif(1e6)
  fit <- bagging(Species ~ .,
                 data = iris,
                 nbagg = 10,
                 coob = TRUE)
  return(fit)
}

# Remove junk
cleaned_classbagg <- butcher(wrapped_classbagg(), verbose = TRUE)
#> ✔ Memory released: 12.43 MB
#> ✖ Disabled: `print()` and `summary()`

# Check size
lobstr::obj_size(cleaned_classbagg)
#> 179.31 kB