R/SRM_DEFINE_NULL_VECTOR.R

In srm: Structural Equation Modeling for the Social Relations Model

Defines functions SRM_DEFINE_NULL_VECTOR

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

SRM_DEFINE_NULL_VECTOR <- function(vec)
{
    if (length(vec)==0){
        vec <- NULL
    }
    return(vec)
}

Try the srm package in your browser