# NOT RUN {
e <- ev(amt = 100, ii = 12, addl = 3)
realize_addl(e)
a <- ev(amt = 100, ii = 12, addl = 2, WT = 69)
b <- ev(amt = 200, ii = 24, addl = 2, WT = 70)
c <- ev(amt = 50, ii = 6, addl = 2, WT = 71)
e <- ev_seq(a,b,c)
realize_addl(e, mark_new = TRUE)
# }
Run the code above in your browser using DataLab