Thanks for the reply.

How can i make the functions known to all nodes?


Best regards,

Kaiyin ZHONG
------------------------------
FMB, Erasmus MC
k.zhong@erasmusmc.nl
kindlychung@gmail.com


On Tue, Apr 23, 2013 at 2:43 PM, Uwe Ligges <ligges@statistik.tu-dortmund.de
> wrote:

>
>
> 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@erasmusmc.nl
>> kindlychung@gmail.com
>>
>>         [[alternative HTML version deleted]]
>>
>> ______________________________**________________
>> R-help@r-project.org mailing list
>> https://stat.ethz.ch/mailman/**listinfo/r-help<https://stat.ethz.ch/mailman/listinfo/r-help>
>> PLEASE do read the posting guide http://www.R-project.org/**
>> posting-guide.html <http://www.R-project.org/posting-guide.html>
>> and provide commented, minimal, self-contained, reproducible code.
>>
>>

	[[alternative HTML version deleted]]

