R/tam_mml_3pl_create_notA.R

In alexanderrobitzsch/TAM: Test Analysis Modules

## File Name: tam_mml_3pl_create_notA.R
## File Version: 0.06


####################################################
# create a dummy A matrix
tam_mml_3pl_create_notA <- function( E, notA )
{
    dimE <- dim(E)
    A <- array( 0, dim=c(dimE[1], dimE[2], 2 ) )
    xsi.fixed <- cbind( c(1,2), 0 )
    res <- list("A"=A, "xsi.fixed"=xsi.fixed )
    return(res)
}
####################################################################


.mml.3pl.create.notA <- tam_mml_3pl_create_notA