计算向量中元素的所有成对差异

我的问题与先前的帖子非常相关：计算R中向量中的所有成对差异

但是我对这些元素的差异而不是绝对差异很感兴趣，这使得所有建议的解决方案都不可行。

我知道如何使用此命令获得结果：

n <- 4
x <- c(1:4)
combn(x,2, FUN=diff)

但这对于我的n = 500/1000 / ...的应用程序来说太慢了。在R中执行此操作的最有效方法是什么

你可以用 outer

x <- c(1:4)
outer(x,x, `-`)
     [,1] [,2] [,3] [,4]
[1,]    0   -1   -2   -3
[2,]    1    0   -1   -2
[3,]    2    1    0   -1
[4,]    3    2    1    0