# NOT RUN {
## example("mrgsim")
mod <- mrgsolve:::house() %>% ev(amt=1000, cmt=1)
out <- mod %>% mrgsim()
plot(out)
out <- mod %>% mrgsim(end=22)
out
data(exTheoph)
out <- mod %>% data_set(exTheoph) %>% mrgsim()
out
out <- mod %>% mrgsim(data=exTheoph)
out <- mrgsim(mod, data=exTheoph, obsonly=TRUE)
out
out <- mod %>% mrgsim(data=exTheoph, obsaug=TRUE, carry.out="a.u.g")
out
out <- mod %>% mrgsim(req="CENT")
out
out <- mrgsim(mod, Req="CP,RESP")
out
# }
Run the code above in your browser using DataLab