Check if two numeric values are approximately equal
approx_equal(a, b, tol = sqrt(.Machine$double.eps))
a
a numeric object
b
tol
the numeric tolerance
a logical value