R/is_constant.R

In decisionpatterns/ordering: Test, Check, Verify, Investigate the Monotonic Properties of Vectors

Defines functions is_constant

Documented in is_constant

#' @rdname tests
#' @export

is_constant <- function( x, na.rm=TRUE ) {
  
  if( all( is.na(x) ) ) return(NA)
  
  if( na.rm )
    x <- na.omit(x)
  
  all( x == x[1] )
  
}