x <- t(1:6) * pi
y <- 10 ^ log10(x)
# Show that values are equal, but not identical (due to floating-point error)
all.equal(x, y)
identical(x, y)
# Checking the difference in outputs
ismember(x, y)
ismembertol(x, y)
Run the code above in your browser using DataLab