1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
#' @title Set parameters of performance measures
#'
#' @description
#' Sets hyperparameters of measures.
#'
#' @param measure ([Measure])\cr
#' Performance measure.
#' @param ... (any)\cr
#' Named (hyper)parameters with new settings. Alternatively these can be passed
#' using the `par.vals` argument.
#' @param par.vals ([list])\cr
#' Optional list of named (hyper)parameter settings. The arguments in
#' `...` take precedence over values in this list.
#' @template ret_measure
#' @family performance
#' @export
setMeasurePars = function(measure, ..., par.vals = list()) {
args = list(...)
assertClass(measure, classes = "Measure")
assertList(args, names = "unique", .var.name = "parameter settings")
assertList(par.vals, names = "unique", .var.name = "parameter settings")
measure$extra.args = insert(measure$extra.args, insert(par.vals, args))
measure
}
#' @title Set aggregation function of measure.
#'
#' @description
#' Set how this measure will be aggregated after resampling.
#' To see possible aggregation functions: [aggregations].
#'
#' @param measure ([Measure])\cr
#' Performance measure.
#' @template arg_aggr
#' @return ([Measure]) with changed aggregation behaviour.
#' @family performance
#' @export
setAggregation = function(measure, aggr) {
assertClass(measure, classes = "Measure")
assertClass(aggr, classes = "Aggregation")
measure$aggr = aggr
return(measure)
}
|
