R/tamaanify_proc_lavaanmodel.R

In TAM: Test Analysis Modules

## File Name: tamaanify_proc_lavaanmodel.R
## File Version: 9.14


#--- process lavaan model
tamaanify_proc_lavaanmodel <- function(res, resp )
{
    tam1 <- res$tammodel.dfr
    ind1 <- which( paste(tam1$syn)=="LAVAANMODEL:" )
    index1 <- tam1$part_begin[ ind1 ]
    lavmodel <- paste( tam1[ which( tam1$part_begin==index1 )[-1], "syn" ] )
    lavmodel <- paste0( lavmodel, collapse="\n")
    res$LAVAANMODEL <- lavmodel
    #** process lavaan model
    lavres <- lavaanify.IRT( lavmodel=res$LAVAANMODEL, data=resp )
    res$lavpartable <- lavres$lavpartable
    return(res)
}