R/sirt_pem_extract_dimension.R

Defines functions sirt_pem_extract_dimension

## 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)
}
alexanderrobitzsch/sirt documentation built on March 18, 2024, 1:29 p.m.