Extracts the empirical log-likelihood ratio from a model.

# S4 method for EL
logLR(object, ...)

# S4 method for ELT
logLR(object, ...)

# S4 method for SummaryEL
logLR(object, ...)

# S4 method for SummaryELT
logLR(object, ...)

# S4 method for SummaryLM
logLR(object, ...)

Arguments

object

An object that contains the empirical log-likelihood ratio.

...

Further arguments passed to methods.

Value

A single numeric.

References

Baggerly KA (1998). ``Empirical Likelihood as a Goodness-of-Fit Measure.'' Biometrika, 85(3), 535--547. doi:10.1093/biomet/85.3.535 .

See also

Examples

data("precip")
fit <- el_mean(precip, par = 40)
logLR(fit)
#> [1] -4.978739