避免R中的嵌套循环

我将在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)

                }
        }

for（i在1中：（nrow（数据）-1））
{
对于（j in（i+1）：nrow（数据））
{
A你的输入和期望的输出是什么？看一看或