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