library(paradox)
library(data.table)
param_set = ps(
x = p_dbl(lower = 0, upper = 10),
x2 = p_int(lower = -10, upper = 10),
x3 = p_fct(levels = c("a", "b", "c")),
x4 = p_lgl()
)
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