有效使用foreach和if语句

Question

我的目标是获取t检验p值的14616 x 14616矩阵（矩阵），并获取较低的三角形值并将其转换为矢量（vec）。

vec = foreach(i=1:14616, .combine='c') %:%
foreach(j=1:14616, .combine='c') %dopar%{
    if(i>j){
        mat[i,j]
    }
}
vec <- as.matrix(vec)

我觉得我真的为此失去了效率，并且希望得到任何建议。