R/xxirt_compute_likelihood.R

In alexanderrobitzsch/sirt: Supplementary Item Response Theory Models

## File Name: xxirt_compute_likelihood.R
## File Version: 0.290


##-- xxirt compute likelihood
xxirt_compute_likelihood <- function( probs_items, dat, resp_index=NULL,
        dat_resp_bool=NULL, person_covariates_items=FALSE )
{
    N <- nrow(dat)
    TP <- dim(probs_items)[3]
    I <- dim(probs_items)[1]
    maxK <- dim(probs_items)[2]
    # p.xi.aj <- matrix( 1, nrow=N, ncol=TP )
    if (!person_covariates_items){
        probs <- matrix( probs_items, nrow=I, ncol=maxK*TP )
        p.xi.aj <- sirt_rcpp_xxirt_compute_likelihood( dat=dat,
                            dat_resp_bool=dat_resp_bool,
                            probs=probs, TP=TP, maxK=maxK )
    } else {
        probs <- as.vector( probs_items )
        p.xi.aj <- sirt_rcpp_xxirt_compute_likelihood_person_covariates( dat=dat,
                        dat_resp_bool=dat_resp_bool, probs=probs, TP=TP, maxK=maxK )
    }
    #-- output
    return(p.xi.aj)
}