Displaying 4 results from an estimated 4 matches for "doseq".
Did you mean:
dose
2011 Aug 17
1
R cmd check and multicore foreach loop
Hi,
in R 2.12.1, R CMD check hangs when building a vignette that uses a
foreach loop with the doMC parallel backend.
This does not happen in R 2.13.1, nor if I use doSEQ instead of doMC.
All versions of multicore, doMC and foreach are the same on both my R
installations.
Has anybody encountered a similar issue?
Thank you.
Renaud
###
UNIVERSITY OF CAPE TOWN
This e-mail is subject to the UCT ICT policies and e-mai...{{dropped:5}}
2011 Jun 29
0
[R-sig-hpc] doMC - compiler - concatenate an expression vector into a single expression?
Thank you very much Steve.
Your suggestion works perfectly -- at least with doSEQ, doMC and doMPI.
Bests,
Renaud
On 28/06/2011 15:35, Stephen Weston wrote:
> I think that the result of the concatenation should be a call object,
> rather than an expression object. How about something along the
> lines of:
>
> '%dopar2%'<- function(obj, ex) {
>...
2011 Jun 28
1
doMC - compiler - concatenate an expression vector into a single expression?
...n
ex <- c(expression({ a <- i; message("Custom ", a);}), substitute(ex))
# call the standard %dopar% operator
do.call(`%dopar%`, list(obj, ex), envir=parent.frame() )
}
res <- foreach(i=1:3) %dopar2% { print(i); i*2; }
res
#########################
# Output with doSEQ or doMC 1.2.1
#########################
Custom 1
[1] 1
Custom 2
[1] 2
Custom 3
[1] 3
> res
[[1]]
[1] 2
[[2]]
[1] 4
[[3]]
[1] 6
#########################
# Output with doMC 1.2.2
#########################
[[1]]
expression({
a <- i
message("Custom ", a)
}, {
print...
2010 Nov 16
2
Debugging segfault in foreach
...mulator(list(r), i), error = function(e) {
cat("error calling combine function:\n") print(e)
NULL }) \
i <- i + 1 }}, error = function(e) { if
(!identical(conditionMessage(e), "StopIteration"))
stop(simpleError(conditionMessage(e), expr))})
10: doSEQ(obj, substitute(ex), parent.frame())
11: foreach(chr = chrs, .packages = "GenomicFeaturesX", .verbose =
TRUE) %do% { .gc <- duplicate(gcache, pre.load = NULL)
on.exit(dispose(.gc)) cat("===", chr, "===\n") \
apaSummary(expt, .gc, chr, pvd....