# NOT RUN {
e1 <- ev(amt=100, ii=12, addl=1)
e2 <- ev(amt=200)
seq(e1, e2)
seq(e1, wait = 8, e2)
seq(e1, wait = 8, e2, id = 1:10)
ev_seq(wait = 12, e1, wait = 120, e2, wait = 120, e1)
seq(ev(amt=100, ii=12), ev(time=8, amt=200))
# }
Run the code above in your browser using DataLab