LaMa (version 3.1.0)

scores: Per-observation score contributions

Description

Computes the score contribution of each observation, $$u_t = \frac{\partial}{\partial \theta} \log p(x_t \mid x_1, \dots, x_{t-1}),$$ for a model whose negative log-likelihood function calls forward. Their column sums are the gradient of the log-likelihood. They are the building block for robust (sandwich) standard errors, e.g. cluster-robust ones via rowsum(U, ID).

Usage

scores(obj, par = NULL)

Value

matrix of score contributions of dimension c(nObs, length(obj$par))

Arguments

obj

optimised RTMB object from MakeADFun, or a model object from lama or qreml

par

optional parameter vector like obj$par, e.g. opt$par. Defaults to the estimates (for qreml models the final fit).

Details

Each log-likelihood contribution in forward gets a weight \(w_t\). The gradient of the weighted log-likelihood is linear in the weights, so its derivative w.r.t. \(w_t\) is \(u_t\). This needs one tape of the gradient and one reverse sweep per parameter. The weights are handed to forward internally, so the likelihood function does not need to change.

The likelihood function is taken from obj and evaluated again, with the data as they are when scores() is called. Parameters fixed via map are respected, and the columns correspond to obj$par, like obj$gr() and obj$he().

If the likelihood function calls forward several times, e.g. once per track, the rows of the result follow the order of these calls. Only forward (and its deprecated _g and _p versions) is supported, and models with random effects are not.

Examples

nll <- function(par) {
  getAll(par)
  Gamma <- tpm(eta)
  delta <- stationary(Gamma)
  allprobs <- cbind(dgamma2(step, mu[1], sigma[1]), 
                    dgamma2(step, mu[2], sigma[2]))
  -forward(delta, Gamma, allprobs)
}
step <- trex$step[1:200]
par <- list(eta = c(-2, -2), mu = c(0.3, 2.5), sigma = c(0.2, 1.5))
obj <- MakeADFun(nll, par, silent = TRUE)
opt <- nlminb(obj$par, obj$fn, obj$gr)
mod <- lama(obj)
U <- scores(mod)
colSums(U) # ~ 0 at the MLE