计算矩阵的元素之间的距离
X=(x1,x2,x3,x4,....,xn),，且
x1=(x11,x12)
x2=(x21,x22)
x3=(x31,x32)
x4=(x41,x42)
.......
xn=(xn1,xn2)

现计算一个矩阵D=(dij)nxn 其中 dij=d(xi,xj)#欧式距离
我用for循环太慢，请问大神有没有优化的程序？谢谢

x <- matrix(rnorm(1000), ncol = 2)
x
n=dim(x)[1]
D=matrix(0,n,n)
for(i in 1:n){
  for(j in 1:n){
    D[i,j]=dist(x=rbind(x[i,],x[j,]))

  }
}