# NOT RUN {
mod <- mrgsolve::house()
mod <- mod %>% ev(amt=1000, time=0, cmt=1)
loading <- ev(time=0, cmt=1, amt=1000)
maint <- ev(time=12, cmt=1, amt=500, ii=12, addl=10)
c(loading, maint)
loading$time
# }
Run the code above in your browser using DataLab