Как сравнить две строки, чтобы найти количество символов, совпадающих в R, используя расстояние замещения?

Question

В R у меня есть два вектора символов, a и b.

a <- c("abcdefg", "hijklmnop", "qrstuvwxyz") 
b <- c("abXdeXg", "hiXklXnoX", "Xrstuvwxyz") 

Я хочу функцию, которая подсчитывает совпадение символов между каждым элементом a и соответствующим элементом b. Используя вышеприведенный пример, такая функция должна возвращать c(2,3,1). Нет необходимости выровнять строки. Мне нужно сравнить каждую пару строк по символам и подсчетам совпадений и/или несоответствий в каждой паре. Существует ли такая функция в R?

Или задать вопрос по-другому, есть функция, чтобы дать мне редактировать расстояние между двумя строками, где разрешена только операция замещения (игнорируют вставки или делеции)?

Answer 1

Используя некоторые mapply удовольствие:

mapply(function(x,y) sum(x!=y),strsplit(a,""),strsplit(b,"")) 
#[1] 2 3 1 

Answer 2

Другой вариант заключается в использовании adist, который вычислить приблизительное расстояние строки между векторами символов:

mapply(adist,a,b) 
abcdefg hijklmnop qrstuvwxyz 
    2   3   1