мы можем сделать это с Lapply для повышения производительности

Question

Я перебираю матрицу для некоторых вычислений и мне нужен код для того же, чтобы улучшить производительность.

for(i in 2:nrow(TransposeDataSet)){
    for(j in 1:ncol(TransposeDataSet)){
      if(TransposeDataSet[[i,j]]!=" 0"){
        df <- cbind(rownames(TransposeDataSet)[i], TransposeDataSet[[1,j]])
        write.table(df, file = filename, sep = ",", append = TRUE, row.names = FALSE, col.names = FALSE) 

      }
    } 
}