# NOT RUN {
glmn_param <- parameters(lambda = penalty(), mixture())
pull_dials_object(glmn_param, "lambda")
# fails:
# pull_dials_object(glmn_param, "penalty")
# ->
extract_parameter_dials(glmn_param, "lambda")
# }
Run the code above in your browser using DataLab