Я хотел бы проверить, равны ли элементы вектора элементам другого вектора +/- 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, поэтому приведенное выше будет выглядеть довольно грязно.