R/tam_mml_compute_AXsi.R

In alexanderrobitzsch/TAM: Test Analysis Modules

## File Name: tam_mml_compute_AXsi.R
## File Version: 0.04

tam_mml_compute_AXsi <- function( A, xsi )
{
    dimA <- dim(A)
    AXsi <- matrix( NA, nrow=dimA[1], ncol=dimA[2] )
    for (kk in 1:dimA[2]){
        AXsi[,kk] <- A[,kk,] %*% xsi
    }
    return(AXsi)
}