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
|
#' @title Return number of parameters in set.
#'
#' @description
#' Either number of parameters or sum over parameter lengths.
#'
#' @template arg_parset
#' @param devectorize [\code{logical(1)}]\cr
#' Sum over length of vector parameters?
#' Default is code{FALSE}.
#' @return [\code{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))
}
|
