dziwne strzępy. błąd równoległy / unikanie leniwej oceny w wywołaniu funkcji
Mam wywołanie funkcji (dojags.parallel
), który działa, gdy podano argument liczbowyn.iter = 100
ale kończy się niepowodzeniem, gdy argument używa wartości zmiennej,n.iter = n.iter
. Wygląda na to, że może to być błądjags.parallel
Minimalny powtarzalny przykład błędu:
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))
}
Wtedy to działa:
jagsfit.p <- jags.parallel(data=jags.data, inits=jags.inits, jags.params,
n.iter=5000, model.file=model.file)
Ale to nie:
n.iter=5000
jagsfit.p <- jags.parallel(data=jags.data, inits=jags.inits, jags.params,
n.iter=n.iter, model.file=model.file)
Błąd:
Error in checkForRemoteErrors(lapply(cl, recvResult)) :
3 nodes produced errors; first error: object 'n.iter' not found
Rozumiem, że ma to coś wspólnego z nieeksportowaniem zmiennejn.iter
do klastra, ale nie jest jasne, jakie równoległe wyszczerbienie silnika. Czy istnieje sposób na oszukanie R do ocenyn.iter
przed przekazaniem go do funkcji?