比较2个向量，当相差很小时

Question

我正在尝试比较两个向量之间R的LHS与RHS，或者如果差异小于1e-10，但是当RHS为负时会遇到问题

A2％*％beta <= b2

请参见下面的代码

   A2 <- matrix(c(1, 1, 0, 0, 0, 0), nrow = 1) # Lhs
   b2 <- matrix(-12, nrow = 1) # Rhs

   beta1 <- c(-12.194608285, 0.194608285, 0.002113886, -4.514099372, 0.260898524, -0.004513579)

   > (lhs2 <- A2 %*% beta1)
        [,1]
  [ 1,]  -12
   > (lhs2[abs(lhs2 - b2) < 1e-12] <- 0L)
     [1] 0
   > lhs2 - b2 <= 1e-12
          [,1]
     [1,] FALSE

我不知道为什么当我认为它是真实的时候会得到FALSE。