如何在R中使用嵌套的foreach循环？

问题描述

here和here提出了类似的问题...但是我似乎无法让他们为我工作。下面是我的代码的最小示例。基本上，我试图在内部循环中使用foreach进行嵌套的%dopar%嵌套循环，但是我无法使其正常工作。

如果我删除了foreach并用常规的for循环替换了它们（如下面示例中的编码部分），则一切正常。但是目前，运行下面的代码会返回错误信息：

eval（a，envir = extra，enclos = obj $ evalenv）中的错误：找不到对象“ j”

我以前从未使用过foreach，而且我不确定自己在做什么错。任何建议都会有所帮助。

library(foreach)
library(parallel)
library(doParallel)

vars <- 1:10

func1 <- function(vars){
  ans <- vars*vars
}

func2 <- function(vars){
  ans2 <- vars+1
}

func3 <- function(vars){
  
  fvars <- lapply(vars,function(j){
    func2(j)
  })
  
  
  cl <- parallel::makeCluster(2,setup_timeout = 0.5)
  registerDoParallel(cl)
  
  foreach (j = 1: (length(vars)-1))%:%{
    foreach (k = (j+1): (length(vars)))%dopar%{

   #for (j in 1: (length(vars)-1)){
      #for (k in (j+1): (length(vars))){

      fjk <- func1(vars[c(j,k)])
      fj <- fvars[[j]]
      fk <- fvars[[k]]
      
      htop <- sum((fjk - fj - fk)^2)
    }
   }
  return(htop)
}

func3(vars)

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

foreach r r