R/lsem_fitsem_joint_estimation_partable_id.R

In alexanderrobitzsch/sirt: Supplementary Item Response Theory Models

## File Name: lsem_fitsem_joint_estimation_partable_id.R
## File Version: 0.01

lsem_fitsem_joint_estimation_partable_id <- function(partable_gg, partable_mg, vv)
{
    partable_gg[,vv] <- partable_gg[,vv] + max(partable_mg[,vv], na.rm=TRUE)
    return(partable_gg)
}