R/tam_mml_3pl_calc_ll.R

Defines functions tam_mml_3pl_calc_ll

## File Name: tam_mml_3pl_calc_ll.R
## File Version: 0.08


tam_mml_3pl_calc_ll <- function( n.ik, probs, eps )
{
    maxK <- dim(n.ik)[2]
    probs <- probs + eps
    l1 <- 0
    for (kk in 1:maxK){
        l1 <- l1 + sum( n.ik[,kk,,drop=FALSE] * log( probs[,kk,,drop=FALSE] ) )
    }
    return(l1)
}

Try the TAM package in your browser

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

TAM documentation built on May 29, 2024, 2:20 a.m.