fold_list <- list(
"Fold1" = setdiff(seq_len(100), 1:33),
"Fold2" = setdiff(seq_len(100),66:100),
"Fold3" = setdiff(seq_len(100),34:65)
)
mlh_outsample_row_indices(fold_list, 100)
mlh_outsample_row_indices(fold_list, 100, "glmnet")
Run the code above in your browser using DataLab