1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
getTaskConstructorForLearner = function(learner) {
while (inherits(learner, "BaseWrapper")) {
learner = learner$next.learner
}
cl = class(learner)
if ("RLearnerRegr" %in% cl) {
constructor = makeRegrTask
} else if ("RLearnerClassif" %in% cl) {
constructor = makeClassifTask
} else if ("RLearnerSurv" %in% cl) {
constructor = makeSurvTask
} else if ("RLearnerCluster" %in% cl) {
constructor = makeClusterTask
} else {
stop("Unknown learner class for impute")
}
constructor
}
|