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"



Best regards,

Kaiyin ZHONG
------------------------------
FMB, Erasmus MC
k.zh...@erasmusmc.nl
kindlych...@gmail.com

        [[alternative HTML version deleted]]

______________________________________________
R-help@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.

Reply via email to