# NOT RUN {
# }
# NOT RUN {
code <- '
$PARAM CL = 1, VC = 5
$CMT CENT
$ODE dxdt_CENT = -(CL/VC)*CENT;
'
mod <- mcode("ex_mread",code)
mod
mod %>% init(CENT=1000) %>% mrgsim %>% plot
mod <- mread("irm3", modlib())
mod
# }
Run the code above in your browser using DataLab