This function extracts the monitored data from a simulation environment making it accessible through the same methods. Only useful if you want to parallelize heavy replicas (see the example below), because the C++ simulation backend is destroyed when the threads exit.

wrap(.env)

Arguments

.env

the simulation environment.

Value

Returns a simulation wrapper.

See also

Examples

if (FALSE) { library(parallel) mm1 <- trajectory() %>% seize("server", 1) %>% timeout(function() rexp(1, 2)) %>% release("server", 1) envs <- mclapply(1:4, function(i) { simmer("M/M/1 example") %>% add_resource("server", 1) %>% add_generator("customer", mm1, function() rexp(1, 1)) %>% run(100) %>% wrap() }) }