奇怪的jags.parallel错误/避免函数调用中的延迟计算

Question

我有一个函数调用(对jags.parallel)，当给定一个数值参数(如n.iter = 100 )时，它可以工作，但当参数使用变量值n.iter = n.iter时，它就失败了。这看起来可能是jags.parallel中的一个错误

错误的最小可重现示例：

    library(R2jags)
    model.file <- system.file(package="R2jags", "model", "schools.txt")
    J <- 8.0
    y <- c(28.4,7.9,-2.8,6.8,-0.6,0.6,18.0,12.2)
    sd <- c(14.9,10.2,16.3,11.0,9.4,11.4,10.4,17.6)    
    jags.data <- list("y","sd","J")
    jags.params <- c("mu","sigma","theta")
    jags.inits <- function(){
      list("mu"=rnorm(1),"sigma"=runif(1),"theta"=rnorm(J))
    }

然后这就行了：

    jagsfit.p <- jags.parallel(data=jags.data, inits=jags.inits, jags.params, 
                               n.iter=5000, model.file=model.file)

但这不是：

     n.iter=5000
    jagsfit.p <- jags.parallel(data=jags.data, inits=jags.inits, jags.params,
                               n.iter=n.iter, model.file=model.file)

给出错误：

Error in checkForRemoteErrors(lapply(cl, recvResult)) : 
  3 nodes produced errors; first error: object 'n.iter' not found

我猜这与没有将变量n.iter导出到集群有关，但不清楚jags.parallel使用的是哪个并行引擎。在将n.iter传递给函数之前，有没有办法诱使R对它求值？

Answer 1

如果'quote‘为默认值'FALSE'，则对参数求值(在调用环境中，而不是在’envir‘中)。

我确认了以下工作，通过result对象的jagsfit.p方法显示的所有数字生成与您的打印匹配的结果：

jagsfit.p2 <- do.call(jags.parallel, 
                      list(data=jags.data, inits=jags.inits, jags.params,
                           n.iter=n.iter, model.file=model.file))