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.

# NOT RUN { sqrt(2) ^ 2 == 2 near(sqrt(2) ^ 2, 2) # }

Run the code above in your browser using DataLab