R/tam_mml_3pl_calc_ll_est_guessing.R

In TAM: Test Analysis Modules

## File Name: tam_mml_3pl_calc_ll_est_guessing.R
## File Version: 0.04

tam_mml_3pl_calc_ll_est_guessing <-
    function( n0ij, n1ij, probs, eps )
{
    l1 <- rowSums( n0ij * log( probs[,1,] + eps ) + n1ij * log( probs[,2,] + eps ) )
    return(l1)
}