はall.equal
非常に強力なツールですが、有益な応答文字列の宝庫がありますが、ほぼ等しい場合にTRUE/FALSEを返すだけの同等の関数が必要でした。(私はのような標準的なトリックを知っていますidentical(all.equal(foo,bar), TRUE)
)。次のコードスニペットを作成しましたが、Rパッケージの1つにある同様の機能を見落としているのではないかと考えていました。
approxeq <- function(x,y,tolerance = .Machine$double.eps ^ 0.5,...) {
#Note: better input validation should be written
if (length(x) != length(y)) stop('lengths must be equal')
checkit <- abs(x-y) < tolerance
return(invisible(checkit))
}
approxeq
との主な違いall.equal
は、前者では要素ごとの同等性テストの結果が得られることです。私はこれが良いと言っているのではなく、ただ違うだけです。それで、リリースされたパッケージに同様の(そしておそらくより堅牢な)機能があるかどうか誰かが知っていますか?