R/addMlrTunedLearner.R

In tudo-r/BatchExperimentsMlr: BatchExperimentsMlr

addMlrTunedLearner = function(reg, id, par.set, control, rdesc) {
  addAlgorithm(reg, id, fun=function(static, dynamic, ...) {
    id = sprintf("classif.%s", id)
    lrn = makeLearner(id)
    lrn = makeTuneWrapper(lrn, par.set=par.set, resampling=rdesc, control=control)    
    resample(lrn, task=static$task, resampling=dynamic$rin)
  })  
}