He usadoadist para calcular la cantidad de caracteres que difieren entre dos cadenas:

a <- "Happy day"
b <- "Tappy Pay"
adist(a,b) # result 2

Ahora me gustaría extraer esos personajes que difieren. En mi ejemplo, me gustaría obtener la cadena"Hd" (o"TP", no importa)

Traté de mirar hacia adentroadist, agrep ystringi Pero no encontré nada.