lambert_ptr <- xptr_create("lambert")
res <- itp(lambert_ptr, c(-1, 1))
# Value at lower limit
xptr_eval(-1, list(), lambert_ptr)
# Value at upper limit
xptr_eval(1, list(), lambert_ptr)
# Value at the estimated root
xptr_eval(res$root, list(), lambert_ptr)
Run the code above in your browser using DataLab