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