# NOT RUN {
library(set6)
# simple example
prms <- list(
prm("a", Set$new(1), 1, tags = "t1"),
prm("b", "reals", 1.5, tags = "t1"),
prm("d", "reals", 2, tags = "t2")
)
p <- pset(prms = prms)
# with properties, deps, trafo
p <- pset(
prm("a", Set$new(1), 1, tags = "t1"),
prm("b", "reals", 1.5, tags = "t1"),
prm("d", "reals", 2, tags = "t2"),
tag_properties = list(required = "t2"),
deps = list(
list(id = "a", on = "b", cond = cnd("eq", 1.5))
),
trafo = function(x, self) return(x)
)
# }
Run the code above in your browser using DataLab