R/logLik.dthmm.R

"logLik.dthmm" <-
function(object, fortran=TRUE, ...){
    m <- nrow(object$Pi)
    n <- length(object$x)
    dfunc <- makedensity(object$distn)
    prob <- matrix(as.double(0), nrow=n, ncol=m)
    for (k in 1:m)
        prob[,k] <- dfunc(x=object$x, getj(object$pm, k), object$pn, log=FALSE)
    y <- forwardback.dthmm(object$Pi, object$delta, prob, fortran,
                           fwd.only=TRUE)$LL
    return(y)
}

Try the HiddenMarkov package in your browser

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

HiddenMarkov documentation built on April 27, 2021, 5:06 p.m.