R/cdm_pem_adjust_dimension.R

In CDM: Cognitive Diagnosis Modeling

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

cdm_pem_adjust_dimension <- function(x, x_dim )
{
    if ( length(x_dim)==2 ){
        x <- matrix(x, nrow=x_dim[1], ncol=x_dim[2] )
    }
    if ( length(x_dim) >=3){
        x <- array(x, dim=x_dim )
    }
    return(x)
}