traj1 <- trajectory() %>%
timeout(1)
traj2 <- trajectory() %>%
set_source("dummy", function() 1) %>%
set_trajectory("dummy", traj1) %>%
timeout(2)
simmer() %>%
add_generator("dummy", traj2, function() 2) %>%
run(6) %>%
get_mon_arrivals()
Run the code above in your browser using DataLab