# NOT RUN {
library(dplyr)
my_lambda <- penalty() %>%
value_set(-4:-1)
try(
range_validate(my_lambda, c(-10, NA)), silent = TRUE
) %>%
print()
range_get(my_lambda)
my_lambda %>%
range_set(c(-10, 2)) %>%
range_get()
# }
Run the code above in your browser using DataLab