This is a safe way of comparing if two vectors of floating point numbers
are (pairwise) equal. This is safer than using
==, because it has
a built in tolerance
near(x, y, tol = .Machine$double.eps^0.5)
Numeric vectors to compare
Tolerance of comparison.
sqrt(2) ^ 2 == 2#>  FALSEnear(sqrt(2) ^ 2, 2)#>  TRUE