library(simmer)
t <- trajectory(verbose=T) %>%
renege_in(1) %>%
seize("dummy", 1) %>%
renege_abort() %>%
timeout(2) %>%
release("dummy", 1)
env <- simmer(verbose=TRUE) %>%
add_resource("dummy", 1) %>%
add_generator("arrival", t, at(0, 0)) %>%
run()
get_mon_arrivals(env, per_resource=TRUE)
get_mon_arrivals(env, per_resource=FALSE)
get_mon_resources(env)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.