task = tsks("german_credit")
learner = lrns("classif.ranger", predict_type = "prob")
learner$classif.ranger$predict_sets <- c("test", "train")
rsmp_cv5 = rsmp("cv", folds = 5)
set.seed(1234)
res = resample(task = task[[1]], learner = learner[[1]], resampling =rsmp_cv5)
autoplot(res, type = 'roc', predict_sets = c("train", "test"))
autoplot(res, type = 'roc', predict_sets = "train")
autoplot(res, type = 'roc', predict_sets = "test")