training_inds <- get_partition_indices(otu_small %>% dplyr::pull("dx"),
training_frac = 0.8,
groups = NULL
)
train_data <- otu_small[training_inds, ]
test_data <- otu_small[-training_inds, ]
cv <- define_cv(train_data,
outcome_colname = "dx",
hyperparams_list = get_hyperparams_list(otu_small, "glmnet"),
perf_metric_function = caret::multiClassSummary,
class_probs = TRUE,
kfold = 5
)
Run the code above in your browser using DataLab