File: helper_funs.R

package info (click to toggle)
r-cran-mlr 2.19.1%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 8,392 kB
  • sloc: ansic: 65; sh: 13; makefile: 5
file content (15 lines) | stat: -rwxr-xr-x 495 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
boosting_helper1 = function(formula, data, subset = seq_len(nrow(data)), ...) {
  args = list(...)
  if (!is.null(args$cp)) {
    ctrl = rpart::rpart.control(cp = args$cp, xval = 0)
  } else {
    ctrl = rpart::rpart.control(xval = 0)
  }
  set.seed(getOption("mlr.debug.seed"))
  adabag::boosting(formula, data[subset, ], mfinal = args$mfinal, control = ctrl)
}

boosting_helper2 = function(model, newdata) {
  set.seed(getOption("mlr.debug.seed"))
  as.factor(predict(model, newdata)$class)
}