R/cdm_pem_extract_parameters.R

In CDM: Cognitive Diagnosis Modeling

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

cdm_pem_extract_parameters <- function( parm, parmgroup, pem_parameter_index )
{
    info <- pem_parameter_index[[ parmgroup ]]
    x_dim <- info$dim
    x <- parm[ info$index ]
    x <- cdm_pem_adjust_dimension(x=x, x_dim=x_dim )
    return(x)
}