## a resource with a queue size equal to the number of arrivals waiting
traj <- trajectory() %>%
set_queue_size("res", 1, mod="+") %>%
seize("res") %>%
set_queue_size("res", -1, mod="+") %>%
timeout(10) %>%
release("res")
simmer() %>%
add_resource("res", 1, 0) %>%
add_generator("dummy", traj, at(0:2)) %>%
run() %>%
get_mon_resources()
Run the code above in your browser using DataLab