R/xxirt_hessian_compute_loglike.R

In sirt: Supplementary Item Response Theory Models

## File Name: xxirt_hessian_compute_loglike.R
## File Version: 0.03


xxirt_hessian_compute_loglike <- function(p.xi.aj, prior1, weights)
{
    post_unnorm <- prior1 * p.xi.aj
    # compute log-likelihood
    dev <- sum( weights * log( rowSums( post_unnorm ) ) )
    return(dev)
}