ps = ParamSet$new(list(
ParamDbl$new("ratio", lower = 0, upper = 1),
ParamFct$new("letters", levels = letters[1:3])
))
if (requireNamespace("lhs", quietly = TRUE)) {
generate_design_lhs(ps, 10)
}
Run the code above in your browser using DataLab