
Generator convenience function to generate inter-arrivals with a specified stop time.
to(stop_time, dist)
the time at which to stop the generator.
a function modelling the interarrival times.
Returns a generator function.
# NOT RUN {
t0 <- create_trajectory() %>% timeout(0)
env <- simmer(verbose=TRUE) %>%
add_generator("dummy", t0, to(5, function() runif(1, 1, 2))) %>%
run(10)
# }
Run the code above in your browser using DataLab