reciprocal(1:5)
reciprocal(1:5, inverse = TRUE, deriv = 2)
nreciprocal(1:5)
nreciprocal(1:5, inverse = TRUE, deriv = 2)
x <- (-3):3
reciprocal(x) # Has Inf
reciprocal(x, bvalue = .Machine$double.eps) # Has no Inf
Run the code above in your browser using DataLab