R/visitSequence_determine_equal_vecs.R

Defines functions visitSequence_determine_equal_vecs

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


#*****************************************************
# equality of two vectors
visitSequence_determine_equal_vecs <- function(v1,v2)
{
    val <- FALSE
    if ( length(v1)==length(v2) ){
        if ( sum( v1 !=v2 )==0){
            val <- TRUE
        }
    }
    return(val)
}
#***************************************************

equal_vecs <- visitSequence_determine_equal_vecs

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.