R/elpdLeks.R

In ClementCalenge/caperpyogm: Estimation of the Number of Male Capercaillie in the Pyrenees Mountains

Defines functions elpdLeks

Documented in elpdLeks

elpdLeks <-
function(x)
{
    if (!inherits(x,"LLCountsSim"))
        stop("x should be of class LLCountsSim")

    ui <- apply(x,1,function(y) {
        z <- y-max(y)
        log(mean(exp(z)))+max(y)
    })
    return(ui)
}