Как написать этот код коэффициента Танимото, чтобы он не зацикливался

Question

У меня написан код, так что если вы введете матрицу отпечатков пальцев, то каждый отпечаток пальца можно будет измерять друг с другом.Я хотел бы изменить этот код таким образом, чтобы вводимый мной отпечаток пальца сравнивался со всеми остальными, без сравнения других между собой.

tanimoto <- function(x, similarity=FALSE) {
  n = dim(x)[1] # nrow x
  x = matrix(as.logical(x), n)
  res = apply(x,2,function(x1) {i=colSums(x1 & x) / colSums(x1 | x); ifelse(is.na(i), 1, i)})
  if(similarity) return(res)
  else return(1-res)
}

Спасибо.