R/all_integers.R

In conover.test: Conover-Iman Test of Multiple Comparisons Using Rank Sums

# all_integers: robustly tests whether all elements of a vector are integers
# Date: October 04, 2026
all_integers <- function(x) {
  for (i in 1:length(x)) {
    if (is.na(x[i]) | is.list(x[i]) | length(x[i]) > 1 | !is.numeric(x[i])) {
      return(FALSE)
      }
    if (x[i]%%1!=0) {
      return(FALSE)
      }
    }
  return(TRUE)
  }