## ----message=FALSE------------------------------------------------------------
library(campsismod)

## -----------------------------------------------------------------------------
model <- model_suite$pk$`2cpt_fo`
show(model)

## -----------------------------------------------------------------------------
model %>% write(file="path_to_model_folder")
list.files("path_to_model_folder")

## -----------------------------------------------------------------------------
model <- read.campsis(file="path_to_model_folder")
show(model)

## -----------------------------------------------------------------------------
rxmod <- model %>% export(dest="rxode2")
rxmod

## -----------------------------------------------------------------------------
mrgmod <- model %>% export(dest="mrgsolve")
mrgmod