检查向量的元素是否等于R中另一个向量+/- 1的元素

Question

我想检查一个向量的元素是否等于另一个向量+/- 1的元素，并计算其为真的次数。我可以这样手动完成：

> a <- c(1:10)
> b <- c(1,2,3,4,6,5,10,11,12,13)
> sum(a == b-1) + sum(a == b) + sum(a == b+1)
[1] 6

是否有更整洁的方法来实现这一目标？在我尝试编写的代码中，我为a和b使用了相当长的索引向量，因此上述内容看起来很混乱。