嵌套循环的较短替代方法

Question

我正在执行一些计算，以使用2个嵌套的copyMap循环来计算ArrayList（见下文）。但是我想知道是否可以使用较短的 R代码代替2个嵌套的pij循环？

for

Answer 1

通过执行以下计算，我们可以直接从pij获得所需的X矩阵。

(X * (X - 1))/(rowSums(X) * (rowSums(X) - 1))

#          A         B
#1 0.0000000 0.0000000
#2 0.1666667 0.1666667
#3 0.1428571 0.2857143
#4 0.2142857 0.2142857
#5 0.2222222 0.2222222
#6 0.2727273 0.1818182