R/logLik-PLADMM.R

Defines functions deviance.PLADMM logLik.PLADMM

#' @importFrom utils tail
#' @export
logLik.PLADMM <- function(object, ...){
    structure(tail(object$loglik, 1),
              df = object$rank,
              class = "logLik")
}

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

Try the PlackettLuce package in your browser

Any scripts or data that you put into this service are public.

PlackettLuce documentation built on July 9, 2023, 7:12 p.m.