1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#' @param maxit (`integer(1)`)\cr
#' Number of iterations for random search.
#' Default is 100.
#' @export
#' @rdname TuneMultiCritControl
makeTuneMultiCritControlRandom = function(same.resampling.instance = TRUE,
maxit = 100L, log.fun = "default", final.dw.perc = NULL, budget = NULL) {
if (is.null(budget))
budget = maxit
else if (is.null(maxit))
maxit = budget
else if (budget != maxit)
stopf("The parameters budget (%i) and maxit (%i) differ.", budget, maxit)
maxit = asCount(maxit)
budget = asCount(budget)
makeTuneMultiCritControl(same.resampling.instance = same.resampling.instance,
maxit = maxit, log.fun = log.fun, final.dw.perc = final.dw.perc,
budget = budget, cl = "TuneMultiCritControlRandom")
}
|
