Более эффективный метод заполнения матрицы, чем вложенные для циклов

Question

Существует ли более эффективный способ достижения следующего?

library(dplyr) 
filers <- sapply(1:100, function(z) sample(letters, sample(1:20, 1), replace=T) %>% paste(collapse='')) %>% unlist() %>% unname() 
n <- length(unique(filers)) 
similarityMatrix <- matrix(0, nr=n, nc=n) 
for (i in 1:n) { 
    for (j in 1:n) { 
     similarityMatrix[i, j] <- compare_strings(filers[i], filers[j]) 
    } 
} 

Примечание: compare_strings псевдо-код для подразумевающего типа операций я пытаюсь выполнить. В приведенных ниже комментариях была некоторая путаница с предшествующей формой вопроса, потому что stringdist поставляется с функцией stringdistmatrix. Мой сценарий включает функцию, которая не имеет этого параметра, и, таким образом, вопрос был изменен, чтобы отразить комментарии ниже.

Answer 1

Это, вероятно, не более эффективно, но более читаемо. Он также выделяет матрицу для вас:

similarityMatrix <- outer(filers, filers, FUN=compare_strings)