r - 使用 R 包 Brobdingnag 查找相等的 brob 编号

Question

我试图找出两个类 brob 的数量何时相等，但我想这不起作用，因为存储在这些数字中的精度未显示。例如，我有两个数字：

a= 634.7984
b= 641.71

library(Brobdingnag)
a_brob = as.brob(exp(1))^a = +exp(634.8)
b_brob = as.brob(exp(1))^b*0.001 = +exp(634.8)

我想在这种情况下输出 TRUE：

 a_brob==b_brob
>[1] FALSE

但我得到了 FALSE。我也尝试使用“数字”或双精度或舍入它们，但没有任何效果。你能帮忙吗？

谢谢

Answer 1

我认为你得到 FALSE 是因为你的 brobs 不相等，如果它们以相同的数字打印。

用dput来看这个：

> library(Brobdingnag)
> (a_brob <- as.brob(exp(1))^a )
[1] +exp(634.8)
> (b_brob <- as.brob(exp(1))^b*0.001)
[1] +exp(634.8)
> (dput(a_brob))
new("brob"
    , x = 634.7984
    , positive = TRUE
)
NULL
> (dput(b_brob))
new("brob"
    , x = 634.802244721018
    , positive = TRUE
)
NULL