計算R中兩個數字的小數點后同意的位數

Question

我希望R計算兩個數字之間相同的位數，並返回小數點后相同的位數。 例如：

a <- 0.1234567890
b <- 0.1234567891

輸出：

9

9位數是相同的。

謝謝！

Answer 1

floor(-log10(abs(ab)))怎么樣？

請注意，任何這樣的計算都存在風險，浮點錯誤可能存在問題 - 請參閱John Paul在下面指出的示例。

Answer 2

這是另一個（基於字符串的）答案，不應該遇到任何浮點比較問題......

sum(sapply(1:20,function(i) grepl(substr(b,1,i),a)))-2

這比較了長度為1到20的b （強制到字符）的所有初始子串（你可以擴展它），確定它們是否包含在a ，返回匹配的數量（即包含在a的b的最長子串的長度） ）並減去2以允許初始0.