powered by
assert_all_numbers_are_whole_numbers(x, tol = 100 * .Machine$double.eps) assert_any_numbers_are_whole_numbers(x, tol = 100 * .Machine$double.eps) assert_all_are_whole_numbers(x, tol = 100 * .Machine$double.eps) assert_any_are_whole_numbers(x, tol = 100 * .Machine$double.eps) is_whole_number(x, tol = 100 * .Machine$double.eps)
tol
TRUE
is_divisible_by
x <- 1 + c(0, .Machine$double.eps, -.Machine$double.neg.eps) is_whole_number(x) is_whole_number(x, 0)
Run the code above in your browser using DataLab