# NOT RUN {
set.seed(1234)
traj <- trajectory() %>%
log_("leave with some probability") %>%
leave(function() runif(1) < 0.5) %>%
log_("didn't leave")
simmer() %>%
add_generator("dummy", traj, at(0, 1)) %>%
run() %>% invisible
# }
Run the code above in your browser using DataLab