
Gradients, Hessians, and higher derivatives for small statistical models
nabla provides a composable operator D for
differentiating R functions written with supported scalar arithmetic and
mathematical operations. Use it to supply gradients to an optimizer,
compute curvature for standard errors, or investigate higher-order
sensitivity without choosing a finite difference step size. Loops and
branches can use these operations:
library(nabla)
f <- function(x) x[1]^2 * exp(x[2])
D(f, c(1, 0)) # gradient
D(f, c(1, 0), order = 2) # Hessian
D(f, c(1, 0), order = 3) # 2×2×2 third-order tensor
D(f, c(1, 0), order = 4) # 2×2×2×2 fourth-order tensorEach application of D adds one dimension to the output.
D(D(f)) gives the Hessian, D(D(D(f))) gives
the third-order tensor, and so on — without symbolic differentiation or
finite difference truncation error. Results remain subject to
floating-point rounding and conditioning.
| Finite Differences | Symbolic Diff | AD (nabla) | |
|---|---|---|---|
| Accuracy | Step-size dependent truncation error | Exact symbolic expressions | No finite difference truncation error |
| Higher-order | Error compounds rapidly | Expression swell | Composes cleanly to any order |
| Control flow | Evaluates the function | Depends on the symbolic system | Differentiates the executed branch using supported operations |
Finite differences lose precision at higher orders (each order
multiplies the error). Symbolic differentiation suffers from expression
swell. nabla composes D via nested dual
numbers. This makes it useful for small models where higher derivatives
matter; it is not a high-dimensional AD engine.
# Install from CRAN
install.packages("nabla")
# Or install development version from GitHub
remotes::install_github("queelius/nabla")D operatorD is the core of nabla. It differentiates a
compatible function f and returns a new function — which
can itself be differentiated:
f <- function(x) x[1]^2 * x[2] + sin(x[2])
Df <- D(f) # first derivative (function)
DDf <- D(Df) # second derivative (function)
DDDf <- D(DDf) # third derivative (function)
Df(c(3, 4)) # gradient vector
DDf(c(3, 4)) # Hessian matrix
DDDf(c(3, 4)) # 2×2×2 tensorEquivalently, evaluate directly at a point:
D(f, c(3, 4)) # gradient
D(f, c(3, 4), order = 2) # Hessian
D(f, c(3, 4), order = 3) # third-order tensorgradient(), hessian(), and
jacobian() are convenience wrappers:
gradient(f, c(3, 4)) # == D(f, c(3, 4))
hessian(f, c(3, 4)) # == D(f, c(3, 4), order = 2)A dual number extends the reals with an infinitesimal ε where ε² = 0:
\[f(x + \varepsilon) = f(x) + f'(x)\,\varepsilon\]
For higher orders, nabla nests dual numbers: a dual
whose components are themselves duals. Each level of nesting extracts
one additional order of derivative — so D(D(D(f)))
propagates through triply-nested duals to produce third derivatives.
Supported operations include lgamma, psigamma,
and trigonometric functions, each with a derivative rule.
x[1]. The
input passed to your function is a container of scalar dual numbers, not
a numeric vector. Write x[1]^2 + x[2]^2 rather than
sum(x^2).pnorm() are not
automatically differentiable. Rewrite the expression using supported
operations or use a different derivative engine.as.numeric()
discards derivatives. A branch derivative describes the executed branch;
it does not establish differentiability at a boundary or a tie in
min() or max().p parameters, an order-k derivative
requires p^k evaluations of the original function and
stores a tensor with p^k entries for scalar output. Nested
dual arithmetic adds further cost. Start with low dimension and low
order, and check derivatives against a known model.optim() and nlminb()D operator, curvature, Taylor
expansiongradient() and
hessian() with optim() and
nlminb()MIT