library(MASS)
fit_da <- function(fit_fn) {
boop <- runif(1e6)
fit_fn(y ~ x, data.frame(y = rep(letters[1:4], 10000), x = rnorm(40000)))
}
lda_fit <- fit_da(lda)
qda_fit <- fit_da(qda)
lda_fit_b <- butcher(lda_fit)
qda_fit_b <- butcher(qda_fit)
weigh(lda_fit)
weigh(lda_fit_b)
weigh(qda_fit)
weigh(qda_fit_b)
Run the code above in your browser using DataLab