1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
source("incl/start.R")
message("*** future_eapply() ...")
message("- From example(eapply) ...")
for (strategy in supportedStrategies()) {
message(sprintf("*** strategy = %s ...", sQuote(strategy)))
plan(strategy)
env <- new.env(hash = FALSE)
env$a <- 1:10
env$beta <- exp(-3:3)
env$logic <- c(TRUE, FALSE, FALSE, TRUE)
y0 <- unlist(eapply(env, mean, USE.NAMES = FALSE))
y1 <- unlist(future_eapply(env, mean, USE.NAMES = FALSE))
stopifnot(all.equal(y1, y0))
y0 <- eapply(env, quantile, probs = 1:3/4)
y1 <- future_eapply(env, quantile, probs = 1:3/4)
stopifnot(all.equal(y1, y0))
y0 <- eapply(env, quantile)
y1 <- future_eapply(env, quantile)
stopifnot(all.equal(y1, y0))
y2 <- future_eapply(env, "quantile")
stopifnot(all.equal(y2, y0))
plan(sequential)
message(sprintf("*** strategy = %s ... done", sQuote(strategy)))
} ## for (strategy in ...)
message("*** future_eapply() ... DONE")
source("incl/end.R")
|
