# NOT RUN {
# *************** Create a controller using custom plot configuration ***************** ------
library(ggPMX)
theophylline <- file.path(
system.file(package = "ggPMX"), "testdata",
"theophylline"
)
WORK_DIR <- file.path(theophylline, "Monolix")
input_file <- file.path(theophylline, "data_pk.csv")
# create a controller with a custom plots template
ctr <- pmx_mlx(
config = pmx_config(
plots=file.path( system.file(package = "ggPMX"),"examples/plots.yaml"),
inputs = system.file(package = "ggPMX","examples/custom_inputs.yaml")
),
directory = WORK_DIR,
input = input_file,
dv = "Y",
dvid = "DVID",
cats = c("SEX"),
conts = c("WT0", "AGE0"),
strats = "STUD"
)
## get the list of plots
ctr %>% plots
ctr %>% get_plot("custom_res_time")
ctr %>% get_plot("custom_npde_time")
# }
Run the code above in your browser using DataLab