R - 如何將兩個`for`循環轉換爲`lapply`？

Question

我有這樣的代碼：

getSomething = function(x, y) { 
     return something 
    } 

    b = matrix(NA, nrow = ncol(a), ncol = ncol(a)) 

    # Loop through the columns 
    for(i in 1:ncol(a)) { 
     # Loop through the columns for each column 
     for(j in 1:ncol(a)) { 
     b[i, j] = getSomething(as.matrix(a[i]), as.matrix(a[j])) 
     } 
    } 

它工作得很好，但是當我嘗試運行大數據集的代碼，它需要很長的時間來運行。

如何將其轉換爲lapply函數使其運行速度更快？

謝謝。

Answer 1

而不是使用lapply，看outer這確實這些循環爲您提供：

outer(seq(ncol(a)), seq(ncol(a)), 
     FUN=function(i, j) getSomething(as.matrix(a[i]), as.matrix(a[j])) 
)