library(paradox)
library(data.table)
param_set = ParamSet$new(list(
ParamDbl$new("x1", lower = 0, upper = 10),
ParamInt$new("x2", lower = -10, upper = 10),
ParamFct$new("x3", levels = c("a", "b", "c")),
ParamLgl$new("x4"))
)
x = data.table(x1 = 5, x2 = 0, x3 = "b", x4 = FALSE)
shrink_ps(param_set, x = x)
Run the code above in your browser using DataLab