sclass objects are byproducts of classbagg objects.
Examples
# 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: 5.71 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: 13.86 MB
#> ✖ Disabled: `print()` and `summary()`
# Check size
lobstr::obj_size(cleaned_classbagg)
#> 179.31 kB