[R] parSapply can't find function

Uwe Ligges ligges at statistik.tu-dortmund.de
Tue Apr 23 14:43:34 CEST 2013



On 18.04.2013 11:11, Kaiyin Zhong (Victor Chung) wrote:
> Here is the code, assuming 8 cores in the cpu.
>
> library('modeest')
> library('snow')
>
> cl = makeCluster(rep('localhost', 8), 'SOCK')
> x = vector(length=50)
> x = sapply(x, function(i) i=sample(c(1,0), 1))
>
> pastK = function(n, x, k) {
>      if (n>k) { return(x[(n-k):(n-1)]) }
>      else {return(NA)}
> }
>
> predR = function(x, k) {
>      pastList = lapply(1:length(x), function(n) pastK(n, x, k))
>      pred = sapply(pastList, function(v) mfv(v)[1])
>      ratio = sum(pred==x, na.rm=T)/(length(pred) - sum(is.na(pred)))
> }
>
> testK = function() {
>      k = seq(3, 25, 2)
>      r = parSapply(cl, k, function(i) predR(x, i))
> #    r = sapply(k, function(i) predR(x, i))
> }
>
> r = testK()
> stopCluster(cl)
>
> Here is the error:
> Error in checkForRemoteErrors(val) :
>    8 nodes produced errors; first error: could not find function "predR"


predR is not yet known on all nodes, just on the master. You have to 
tell the nodes about the definition first.

Best,
Uwe Ligges




>
>
> Best regards,
>
> Kaiyin ZHONG
> ------------------------------
> FMB, Erasmus MC
> k.zhong at erasmusmc.nl
> kindlychung at gmail.com
>
> 	[[alternative HTML version deleted]]
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>



More information about the R-help mailing list