R/immer_jml_calc_loglike.R

Defines functions immer_jml_calc_loglike

## File Name: immer_jml_calc_loglike.R
## File Version: 0.041

immer_jml_calc_loglike <- function( dat_score, probs, K, weights)
{
    loglike <- 0
    eps <- 1E-20
    for (kk in 1L:(K+1)){
        loglike <- loglike + sum( weights*dat_score[,,kk] * log( probs[,,kk] + eps ) )
    }
    return(loglike)
}
alexanderrobitzsch/immer documentation built on March 27, 2024, 5:48 a.m.