r - 多数の行の違い

Question

非常に多数の行と2つのペアの列のみを持つマトリックスがあります。列 1 の各行の差を計算したいのですが、差が定義済みの値 (.001) より小さい場合は、両方の列の行の平均を計算します。たとえば、重みと呼ばれる行列があります。

  A      B
185.0765 10
185.3171 20
186.0777 30
186.0780 40
188.0078 50

weights<-as.data.table(weights)
bins<-weights[A %between% c(A[3],(A[3]+.001))]
meanA<-mean(bins$A)
meanB<-mean(bins$B)

結果の行列は、

  A      B
185.0765 10
185.3171 20
186.0779 35
188.0078 50

多数の行に対してこれを行う方法を誰かにアドバイスしていただければ幸いです。for ループの使用はあまり効率的ではないと思います。