奇怪的 jags.parallel 错误/避免函数调用中的惰性求值

Question

我有一个函数调用 (to 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传递给函数之前， 有什么方法可以欺骗 R 进行计算吗？

Answer 1

do.call()在这种情况下是一个很好的朋友，因为（来自?do.call）：

如果“quote”为“FALSE”（默认值），则对参数进行求值（在调用环境中，而不是在“envir”中）。

我确认以下工作有效，产生与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))