# NOT RUN {
traj <- trajectory() %>%
deactivate("dummy") %>%
timeout(1) %>%
activate("dummy")
simmer() %>%
add_generator("dummy", traj, function() 1) %>%
run(10) %>%
get_mon_arrivals()
# }
Run the code above in your browser using DataLab