## 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.