task = tsk("penguins")
learner = lrn("classif.rpart")
resampling = rsmp("cv", folds = 2)$instantiate(task)
iterations = seq_len(resampling$iters)
# manually train two learners.
# store learners and predictions
learners = list()
predictions = list()
for (i in iterations) {
l = learner$clone(deep = TRUE)
learners[[i]] = l$train(task, row_ids = resampling$train_set(i))
predictions[[i]] = list(test = l$predict(task, row_ids = resampling$test_set(i)))
}
rdata = as_result_data(task, learners, resampling, iterations, predictions)
ResampleResult$new(rdata)
Run the code above in your browser using DataLab