R - 2つの `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])) 
)