每行乘以每行

Question

我有一個20k行和100列的矩陣。我想在所有可能的行對之間執行除法操作。這會創建向量的組合。如何在R編程語言中最有效地做到這一點？

Answer 1

n <- 20 
x <- matrix(rnorm(2 * n), nrow = n) 
apply(
    combn(nrow(x), 2), 
    2, 
    function(y){ 
    x[y[1], ]/x[y[2], ] 
    } 
)