Вызов функции, включающей foreach% dopar% construct from optim, вызывает ошибку:
> workers <- startWorkers(6) # 6 cores
>
> registerDoSMP(workers)
>
> t0 <- Sys.time()
>
> optim(w,maxProb2,control=list(fnscale=-1))
>
> Error in { : task 1 failed - "unused argument(s) (isPrebuilt = TRUE)"
>
> Sys.time()-t0
>
> Time difference of 2.032 secs
>
> stopWorkers(workers)
Вызываемая функция выглядит так:
> maxProb2 <- function(wp) {
>
> r <- foreach (i=s0:s1, .combine=c) %dopar% { pf(i,x[i,5],wp,isPrebuilt=TRUE) }
>
> cat("w=",wp,"max=",sum(r),"\n")
>
> sum(r)
>
> }
pf - некоторая другая функция, x - статическая таблица предварительно вычисленных элементов.
Также вызов функции, которую нужно оптимизировать только один раз, вызывает ту же ошибку:
> workers <- startWorkers(6) # 6 cores
>
> Warning message:
> In startWorkers(6) : there is an existing doSMP session using doSMP1
>
> registerDoSMP(workers)
>
> maxProb2(w)
> Error in { : task 1 failed - "unused argument(s) (isPrebuilt = TRUE)"
>
> stopWorkers(workers)
Что странно, идентичный код работает нормально, когда вызывается непосредственно за один раз (оптимизация вызывает одну и ту же функцию много раз):
> workers <- startWorkers(6) # 6 - ilosc rdzeni
>
> Warning message:
> In startWorkers(6) : there is an existing doSMP session using doSMP1
>
> registerDoSMP(workers)
>
> r <- foreach (i=s0:s1, .combine=c) %dopar% { pf(i,x[i,5],w,isPrebuilt=TRUE) }
>
> sum(r)
> [1] 187.1781
>
> stopWorkers(workers)
Вызываемая функция (maxProb2) работает нормально, когда вместо% dopar% используется% do%%.
Как правильно вызвать функцию, включая конструкцию foreach% dopar%?
ОБНОВЛЕНИЕ 2011-07-17:
Я переименовал функцию pf в probf, но проблема остается.
Функцииprobf определены в script, а не в некотором внешнем пакете.
Две заметки: ОС: Windows 7, IDE: Revolution Analytics Enterprise 4.3
> workers <- startWorkers(workerCount = 3)
>
> registerDoSMP(workers)
>
> maxProb2(w)
>
Error in { : task 1 failed - "could not find function "probf""