避免R中的嵌套循环

Question

我将在R中实现一个公式。我使用了下面的代码，虽然它给了我正确的答案，它花了很多时间来执行。我想知道有没有更好的方法来重写这段代码来提高它的速度。我将避免嵌套循环但是为了减去我找不到有效的循环。

for(i in 1:(nrow(data)-1))
        {
                for(j in (i+1):nrow(data))
                {


                        A <- - sum((data[i,] - data[j,]) ^ 2)
                        guass.sim [i,j] <-  exp (A / B)

                }
        }