R群集导出错误＆＃34;找不到对象＆＃34;

Question

有人可以帮我理解为什么我的程序会产生这个错误吗？

从这里可以看出＆＃34; pay.freq＆＃34;显然是环境的一部分，为什么它找不到它？语法与＆＃34; ts＆＃34;相同。它可以找到没有问题

大圆圈部分包含单词功能，小圆圈部分覆盖单词情节。

cf.pro <- function(t=0,Tb=T,r=Y, k=1, PRFlag="P", freq="w",plot=0){ #Beregner exposure for alle tidspunkter med udgangspunkt 
  ts <- seq(0,30,1/52)
  pay.freq <- if(toupper(freq)=="W"){1}else #bestemmer hvor ofte der sker betalinger
    if(toupper(freq)=="Q"){13}else
      if(toupper(freq)=="H"){26}else
        if(toupper(freq)=="Y"){52}else print("Fejl i frequency input")

  library('parallel')
  cl <- makeCluster(7)
  clusterEvalQ(cl,source("C:/Users/Marcus/Documents/CBS/Speciale/Data/Global data.R"))
  clusterEvalQ(cl,source("C:/Users/Marcus/Documents/CBS/Speciale/Data/Swappriser.R"))
  clusterEvalQ(cl,source("C:/Users/Marcus/Documents/CBS/Speciale/Data/Interest simulation.R"))
  clusterEvalQ(cl,source("C:/Users/Marcus/Documents/CBS/Speciale/Data/Survival sim.R"))
  clusterEvalQ(cl,source("C:/Users/Marcus/Documents/CBS/Speciale/Data/Exposures.R"))
  clusterExport(cl,"ts")
  clusterExport(cl,"pay.freq")

 cf.pro <- parSapplyLB(cl,1:n, function(j){ #Beregner exposure serie n gange
    if (k==1) k=Swap(t=0,Ta=0,Tb=Tb,r=r[,j])
    sapply(ts,function(i){Exposure.cf(t=i,Tb=Tb,r=r[,j], k=k, PRFlag=PRFlag, pay.freq=pay.freq)}) #beregner exposure for alle tidspunkter
  })
  stopCluster(cl)

  if (plot==1) {
    tss <- seq(t, Tb, dt)
    matplot(tss, cf.pro[,1:n], type="l", lty=1, main="Exposure Profiles", ylab="Exposure") 
    lines(tss,rowMeans(cf.pro), lty=1, lwd=3)
  } 
  return(cf.pro)
}

CF.pro.w=cf.pro(t=0,Tb=T,r=r, PRFlag="P", freq="w", plot=1)

Answer 1

如果您查看clusterExport文档，则调用如下

clusterExport(cl, varlist, envir = .GlobalEnv)

如您所见，查找您要导出的变量的默认环境是.GlobalEnv。

您正在函数中进行导出，而pay.freq的范围不是GlobalEnv，而是函数的本地环境。然而，您还没有为clusterExport指定函数的环境，因此clusterExport查找GlobalEnv并且找不到pay.freq。

我愿意打赌这是你的问题，而pay.freq现在出现在你的环境中，因为你可能会逐行排查代码进行测试。我清除了您的环境并尝试通过为clusterExport指定函数环境来再次运行代码。

让我知道这是怎么回事，如果问题有点麻烦，我们可以解决这个问题。这只是我第一次想到这个问题。