R/checkMeasures.R

checkMeasures = function(measures, obj, aggr = NULL) {
  if (missing(measures)) {
    measures = list(getDefaultMeasure(obj))
  } else {
    measures = ensureVector(measures, n = 1L, cl = "Measure")
    assertList(measures, types = "Measure", min.len = 1L)
  }
  if (!is.null(aggr))
    measures = lapply(measures, setAggregation, aggr = aggr)
  return(measures)
}
shuodata/mlr-master documentation built on May 20, 2019, 3:33 p.m.