r - 找到两个非常相似的值之间差异的第一个有效数字

Question

我正在尝试重现导致数据集 data.ref 的计算。我想通过将引用数据与我的计算结果 data.my 进行比较来测试我当前的实现效果如何。由于数据的每一列在列内应该具有可比较的大小，但在列之间不一定，我一直在查看

(data.ref - data.my) / data.ref

将错误放在可比较的范围内。然而，由于数据最终将被四舍五入，我真正想做的只是快速检查数据有多少重要数字值得一致。也就是说，因为我希望 data.ref 和 data.my 彼此非常接近，所以我想回答这个问题:什么是每对对应条目不同的第一个有效数字？

是否有 R 函数可以执行此操作？

Answer 1

ceiling(log10(abs(data.ref, data.my))) 似乎可以解决问题。

例子:

> data.my <- c(20, 30, 32, 32.01, 32.012)
> data.ref <- rep(32, length(data.my))
> ceiling(log10(abs(data.my - data.ref)))
[1]    2    1 -Inf   -2   -1