r - exp(log(6)) == exp(log(3)) * 2 が R で FALSE を返すのはなぜですか?

Question

R では、なぜ y > 2 でこれが偽になるのですか?

y <- c(1, 2, 3, 4, 5)
x <- 2*y
exp(log(x)) == exp(log(y)) * 2
[1]  TRUE  TRUE FALSE FALSE FALSE

Answer 1

数値精度。差を計算してみてください。

exp(log(x)) - exp(log(y)) * 2

次のようなものを使用できます。

all.equal( exp(log(x)) , exp(log(y)) * 2 )

Answer 2

まさに、numerciの精度が原因です。これを試してみてください、さらに簡単な計算

1/2+1/3+1/6 #equal to 1    
(1/2+1/3+1/6)-1 # should be 0
[1] -1.110223e-16