R/equal.R

In dfcorbin/pokersim:

#' Check if all elements of a vector are equal.
#'
#' @param x a vector.
#'
#' @return A logical value.
#' @export
#'
#' @examples
equal <- function(x){
  for (i in 1:length(x)){
    if (x[i] != x[1]) return(FALSE)
  }
  return(TRUE)
}