Skip to contents

Evaluate the log-likelihood function for a model specification at given parameter values.

Usage

loglik(object, y, par, ...)

# S3 method for class 'model_spec'
loglik(object, y, par, ...)

Arguments

object

A model specification object

y

Numeric vector of observed data

par

Named numeric vector of parameter values

...

Additional arguments passed to methods

Value

Numeric scalar log-likelihood value

Examples

spec <- model_spec(
  loglik_fn = function(y, lambda) sum(dexp(y, rate = lambda, log = TRUE)),
  par_names = "lambda",
  par_bounds = list(lambda = c(1e-6, Inf))
)
y <- rexp(100, rate = 2)
loglik(spec, y, par = c(lambda = 2))