R/sirt_pem_extract_dimension.R

In alexanderrobitzsch/sirt: Supplementary Item Response Theory Models

## File Name: sirt_pem_extract_dimension.R
## File Version: 0.03

sirt_pem_extract_dimension <- function(x)
{
    x_dim <- NULL
    if ( is.vector(x) ){
        x_dim <- length(x)
    }
    if ( is.matrix(x) | is.array(x) | is.data.frame(x) ){
        x_dim <- dim(x)
    }
    return(x_dim)
}