# NOT RUN {
mod <- mrgsolve:::house()
data(exidata)
data(exTheoph)
out <- mod %>% data_set(exTheoph) %>% mrgsim()
out <- mod %>% carry_out(evid) %>% ev(amt=100, cmt=1) %>% mrgsim()
out <- mod %>% Req(CP,RESP) %>% mrgsim()
# }
Run the code above in your browser using DataLab