if (FALSE) { # rlang::is_installed("klaR")
library(klaR)
fit_mod <- function() {
boop <- runif(1e6)
rda(
y ~ x,
data = data.frame(y = rep(letters[1:4], 1e4), x = rnorm(4e4)),
gamma = 0.05,
lambda = 0.2
)
}
mod_fit <- fit_mod()
mod_res <- butcher(mod_fit)
weigh(mod_fit)
weigh(mod_res)
}
Run the code above in your browser using DataLab