digits <- 4L
parametersNew(
param_cat(name = "algorithm", values = c("as", "mmas", "eas", "ras", "acs"), label = "--"),
param_ord(name = "localsearch", values = c("0", "1", "2", "3"), label = "--localsearch "),
param_real(name = "alpha", lower = 0.0, upper=5.0, label = "--alpha ", digits = digits),
param_real(name = "beta", lower = 0.0, upper = 10.0, label = "--beta ", digits = digits),
param_real(name = "rho", lower = 0.01, upper = 1.00, label = "--rho ", digits = digits),
param_int(name = "ants", lower = 5, upper = 100, transf = "log", label = "--ants "),
param_real(name = "q0", label = "--q0 ", lower=0.0, upper=1.0,
condition = expression(algorithm == "acs")),
param_int(name = "rasrank", label = "--rasranks ", lower=1, upper=quote(min(ants, 10)),
condition = 'algorithm == "ras"'),
param_int(name = "elitistants", label = "--elitistants ", lower=1, upper=expression(ants),
condition = 'algorithm == "eas"'),
param_int(name = "nnls", label = "--nnls ", lower = 5, upper = 50,
condition = expression(localsearch %in% c(1,2,3))),
param_cat(name = "dlb", label = "--dlb ", values = c(0,1),
condition = "localsearch %in% c(1,2,3)"),
forbidden = "(alpha == 0) & (beta == 0)")
Run the code above in your browser using DataLab