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