# NOT RUN {
t0 <- trajectory() %>%
timeout(0)
simmer() %>%
add_generator("dummy", t0, at(0, c(1,10,30), 40, 43)) %>%
run(100) %>%
get_mon_arrivals()
t0 <- trajectory() %>%
timeout(0)
simmer() %>%
add_generator("dummy", t0, from(5, function() runif(1, 1, 2))) %>%
run(10) %>%
get_mon_arrivals()
t0 <- trajectory() %>%
timeout(0)
simmer() %>%
add_generator("dummy", t0, to(5, function() runif(1, 1, 2))) %>%
run(10) %>%
get_mon_arrivals()
t0 <- trajectory() %>%
timeout(0)
# from 8 to 16 h every 24 h:
simmer() %>%
add_generator("dummy", t0, from_to(8, 16, function() runif(1, 1, 2), every=24)) %>%
run(48) %>%
get_mon_arrivals()
# }
Run the code above in your browser using DataCamp Workspace