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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
stopIfLearnerParams = function(par.set) {
if (any(vlapply(par.set$pars, function(x) inherits(x, "LearnerParameter")))) {
stop("No par.set parameter in 'generateDesign' can be of class 'LearnerParameter'!
Use basic parameters instead to describe you region of interest!")
}
}
stopIfFunOrUntypedParams = function(par.set) {
types = getParamTypes(par.set)
not.ok = intersect(c("untyped", "function", "character", "charactervector"), types)
if (length(not.ok) > 0L) {
stopf("Parameters of this type are not allowed, but were found: %s", collapse(not.ok))
}
}
doBasicGenDesignChecks = function(par.set) {
assertClass(par.set, "ParamSet")
if (isEmpty(par.set)) {
stop("par.set must not be empty!")
}
stopIfLearnerParams(par.set)
stopIfFunOrUntypedParams(par.set)
lower = getLower(par.set, with.nr = TRUE)
upper = getUpper(par.set, with.nr = TRUE)
if (any(is.infinite(c(lower, upper)))) {
stop("Finite box constraints required!")
}
return(list(lower = lower, upper = upper))
}
getParamNA = function(par, repeated = FALSE) {
v = switch(par$type,
numeric = NA_real_,
numericvector = NA_real_,
integer = NA_integer_,
integervector = NA_integer_,
discrete = NA_character_,
discretevector = NA_character_,
logical = NA,
logicalvector = NA,
character = NA_character_,
charactervector = NA_character_
)
if (repeated) {
v = rep(v, par$len)
}
return(v)
}
# Create a list with the values from getValues, but respect vector parameters and
# create a single list item for each vector component named paramId.number
getParamSetValues = function(par.set) {
pids1 = getParamIds(par.set, repeated = TRUE, with.nr = TRUE)
pids2 = getParamIds(par.set, repeated = TRUE, with.nr = FALSE)
values1 = getValues(par.set)
values2 = lapply(pids2, function(x) {
names(values1[[x]])
})
setNames(values2, pids1)
}
# Makes sure we keep all levels of a discrete vector and also keep them in order.
fixDesignFactors = function(des, par.set) {
types.df = getParamTypes(par.set, df.cols = TRUE)
values = getParamSetValues(par.set)
for (i in which(types.df == "factor")) {
des[, i] = factor(des[, i], levels = values[[colnames(des)[i]]])
}
des
}
# Ensure that the types of Design columns are always correct,
# e.g., columns that are always NA or integer if default in integer par is numeric
fixDesignVarTypes = function(des, par.set) {
types = getParamTypes(par.set, use.names = TRUE, df.cols = TRUE)
for (p in colnames(des)) {
des[, p] = as(des[, p], types[p])
}
des
}
# Convert Expressions to call (what we get from quote)
convertExpressionToCall = function(req) {
if (is.expression(req)) {
if (length(req) == 1) {
return(req[[1]])
} else {
return(substitute(eval(x), list(x = req)))
}
}
req
}
# adapted from mlr-org/mlr3misc/purrr_map.R map_dtc
mapDfc = function(.x, .f, ...) {
cols = lapply(.x, .f, ...)
j = vapply(cols, function(x) !is.null(dim(x)) && !is.null(colnames(x)), FUN.VALUE = NA, USE.NAMES = FALSE)
names(cols)[j] = ""
do.call(data.frame, c(cols, list(check.names = TRUE, stringsAsFactors = FALSE)))
}
|
