R/logLik.R

In PlackettLuce: Plackett-Luce Models for Rankings

Defines functions deviance.PlackettLuce logLik.PlackettLuce

#' @export
logLik.PlackettLuce <- function(object, ...){
    structure(object$loglik,
              df = object$rank,
              class = "logLik")
}

#' @export
deviance.PlackettLuce <- function(object, ...){
    -2L*object$loglik
}

Try the PlackettLuce package in your browser