r - 入れ子ループの並列処理の時間見積もり

Question

次のコードがあります。

library(foreach)
  library(doParallel)
  N<-5
  cl<-makeCluster(4)
  registerDoParallel(cl)

  start.time <- Sys.time()

  #loop
  #result is a list of vectors
  s8 <- foreach(i=1:N) %:%
    foreach(j=i:N, .combine='c') %dopar% {

      as.numeric (i+j)    } ## In reality there is something more complicated

  stopCluster(cl) 
  time.taken <- Sys.time() - start.time

time.takenは、プロセスの開始から終了までの時間を保持します。この場合の各加算 (as.numeric (i+j)) にかかった時間を知りたいです。これは、二次元配列が必要であることを意味しtime.taken[i,j]ます。したがってtime.taken[1,1]、最初の反復から最後の反復までの時間が含まれますtime.taken[N,N]。それは可能ですか？