嵌套循环并行过程的时间估计

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]的时间。是否有可能完成？