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]。有可能做到吗？