View source: R/simmer-methods.R
run | R Documentation |
Execute steps until a given criterion.
run(.env, until = Inf, progress = NULL, steps = 10)
stepn(.env, n = 1)
.env |
the simulation environment. |
until |
stop time. |
progress |
optional callback to show the progress of the simulation. The completed ratio is periodically passed as argument to the callback. |
steps |
number of steps to show as progress (it takes effect only if
|
n |
number of events to simulate. |
Returns the simulation environment.
reset
.
## show the progress just printing the steps
simmer() %>%
run(progress=message, steps=5)
## using the 'progress' package
## Not run:
mm1 <- trajectory() %>%
seize("server", 1) %>%
timeout(function() rexp(1, 66)) %>%
release("server", 1)
simmer() %>%
add_resource("server", 1) %>%
add_generator("customer", mm1, function() rexp(100, 60)) %>%
run(3000, progress=progress::progress_bar$new()$update)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.