if (FALSE) {
results <- lapply(seq(100, 102), function(seed) {
run_ml(otu_small, "glmnet", seed = seed, cv_times = 2, kfold = 2)
})
models <- lapply(results, function(x) x$trained_model)
combine_hp_performance(models)
}
Run the code above in your browser using DataLab