R/tam_irf_3pl.R

In alexanderrobitzsch/TAM: Test Analysis Modules

## File Name: tam_irf_3pl.R
## File Version: 0.07

tam_irf_3pl <- function(theta, AXsi, B, guess=NULL, subtract_max=TRUE)
{
    if ( is.vector(theta) ){
        theta <- matrix( theta, ncol=1 )
    }
    nnodes <- nrow(theta)
    nitems <- nrow(AXsi)
    maxK <- ncol(AXsi)
    if ( is.null(guess) ){
        guess <- rep(0,nitems)
    }
    #--- compute probabilities
    probs <- tam_mml_3pl_calc_prob(iIndex=1:nitems, A=NULL, AXsi=AXsi, B=B, xsi=NULL,
                    theta=theta, nnodes=nnodes, maxK=maxK, recalc=FALSE, guess=guess,
                    subtract_max=subtract_max)$rprobs
    probs <- aperm( probs, c(3,1,2) )
    #--- OUTPUT
    return(probs)
}