## create empty rule book
book_01 <- get_RuleBook()
## assign rule definitions to lists
depth <- list(c(0, 10))
age <- list(c(0, 1000))
## add age definition
book_01 <- set_Rule(
book = book_01,
parameter = "age",
value = age,
depth = depth)
Run the code above in your browser using DataLab