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
|
#' @title Return number of parameters in set.
#'
#' @description
#' Either number of parameters or sum over parameter lengths.
#'
#' @template arg_parset
#' @param devectorize (`logical(1)`)\cr
#' Sum over length of vector parameters?
#' Default is \code{FALSE}.
#' @return [`integer`].
#' @examples
#' ps = makeParamSet(
#' makeNumericParam("u"),
#' makeDiscreteVectorParam("x", len = 2, values = c("a", "b"))
#' )
#' getParamNr(ps)
#' getParamNr(ps, devectorize = TRUE)
#' @export
getParamNr = function(par.set, devectorize = FALSE) {
assertClass(par.set, "ParamSet")
assertFlag(devectorize)
if (devectorize) {
return(sum(getParamLengths(par.set)))
} else {
return(length(par.set$pars))
}
}
|
