R/getLL.R

In eglhmm: Extended Generalised Linear Hidden Markov Models

Defines functions getLL

Documented in getLL

getLL <- function(rp) {
    if(any(rp$llc <= 0)) -Inf else sum(log(rp$llc))
}

Try the eglhmm package in your browser