tests/testthat/helper-update_plots.R

helper_updateplots <- function() {
  theophylline <- file.path(
    system.file(package = "ggPMX"), "testdata",
    "theophylline"
  )
  WORK_DIR <- file.path(theophylline, "Monolix")
  input_file <- file.path(theophylline, "data_pk.csv")
  ctr <- pmx_mlx(
    config = "standing", directory = WORK_DIR,
    input = input_file,
    dv = "Y", dvid = "DVID",
    conts = c("WT0", "AGE0"),
    cats = c("SEX"),
    occ = "",
    strats = c("STUD")
  )
  list(ctr = ctr, wd = WORK_DIR, input = input_file)
}

Try the ggPMX package in your browser

Any scripts or data that you put into this service are public.

ggPMX documentation built on July 9, 2023, 7:45 p.m.