outer
можно использовать для получения всех попарных сходств элементов вектора.
library(stringdist)
x <- c('ABCDEFG', 'ABCFFDKJLJ', 'LKJASJLKJI', 'CCDETT')
outer(x, x, stringsim)
# [,1] [,2] [,3] [,4]
#[1,] 1.0000000 0.4 0.1 0.4285714
#[2,] 0.4000000 1.0 0.1 0.2000000
#[3,] 0.1000000 0.1 1.0 0.0000000
#[4,] 0.4285714 0.2 0.0 1.0000000
Или, чтобы сделать его более читабельным,
sim <- outer(x, x, stringsim)
print(sim, digits = 2)
# [,1] [,2] [,3] [,4]
#[1,] 1.00 0.4 0.1 0.43
#[2,] 0.40 1.0 0.1 0.20
#[3,] 0.10 0.1 1.0 0.00
#[4,] 0.43 0.2 0.0 1.00