R/syn_da_extend_vector.R

Defines functions syn_da_extend_vector

## File Name: syn_da_extend_vector.R
## File Version: 0.02

syn_da_extend_vector <- function(x, n, names=NULL)
{
    if (length(x)==1 & (n>1) ){
        x <- rep(x,n)
        if (!is.null(names)){
            names(x) <- names
        }
    }
    return(x)
}

Try the miceadds package in your browser

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

miceadds documentation built on May 29, 2024, 11:05 a.m.