XTS中的十进制值彼此不相等？

Question

我有一个充满十进制值的XTS，我遇到了一个奇怪的问题。

重新制作的步骤

创建XTS

wrap_content

将其与值

进行比较

t <- xts(c(1.9,3.8,5.7,7.6,9.5,11.4,13.3,15.2,17.1,19,21,23), order.by=seq(as.Date("2018-01-01"), as.Date("2018-01-12"), "days"))
colnames(expected) <- "Values"

> t
           Values
2018-01-01    1.9
2018-01-02    3.8
2018-01-03    5.7
2018-01-04    7.6
2018-01-05    9.5
2018-01-06   11.4
2018-01-07   13.3
2018-01-08   15.2
2018-01-09   17.1
2018-01-10   19.0
2018-01-11   21.0
2018-01-12   23.0

我希望> (1.9 * 3) == t Values 2018-01-01 FALSE 2018-01-02 FALSE 2018-01-03 FALSE 2018-01-04 FALSE 2018-01-05 FALSE 2018-01-06 FALSE 2018-01-07 FALSE 2018-01-08 FALSE 2018-01-09 FALSE 2018-01-10 FALSE 2018-01-11 FALSE 2018-01-12 FALSE 等于（1.9 * 3），等于5.7。但事实并非如此。

此处不应存在任何舍入错误，因为t["2018-01-03"] 完全 1.9 * 3。所以我不确定这里发生了什么。

这是带有十进制值的XTS的怪癖吗？我可以使用这种方法很好地比较整数值。如何正确比较这些？