R/cdm_pem_extract_dimension.R

Defines functions cdm_pem_extract_dimension

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

cdm_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)
}

Try the CDM package in your browser

Any scripts or data that you put into this service are public.

CDM documentation built on Aug. 25, 2022, 5:08 p.m.