powered by
all_equal(x, tol = .Machine$double.eps^0.5)
# Returns TRUE all_equal(c(3, 3, 3)) # Returns FALSE all_equal(c(3, 3, 2))
Run the code above in your browser using DataLab