subroutine: Subroutine

In tsahota/NMproject: Script Based 'NONMEM' Model Development

Subroutine

Description

Makes the necessary code changes to go from one ADVAN (and TRANS) to another.

Usage

subroutine(m, advan = NA, trans = 1, recursive = TRUE)

Arguments

m	An nm object.
advan	Character. desired ADVAN.
trans	Character. desired TRANS.
recursive	Logical (default = TRUE). Internal argument, do not modify.

Details

Can only switch between subroutines listed in available_advans.

Value

An nm object with modified ctl_contents field.

See Also

advan()

Examples

# create example object m1 from package demo files
exdir <- system.file("extdata", "examples", "theopp", package = "NMproject")
m1 <- new_nm(run_id = "m1",
             based_on = file.path(exdir, "Models", "ADVAN2.mod"),
             data_path = file.path(exdir, "SourceData", "THEOPP.csv"))


advan(m1) ## 2
trans(m1) ## 1

m1 <- m1 %>% subroutine(advan = 2, trans = 2)

ds <- .available_advans %>%
  dplyr::filter(oral) %>%
  dplyr::mutate(
    m = m1 %>% child(run_id = label) %>%
      subroutine(advan = advan, trans = trans)
  )

ds

ds$m %>% dollar("PK")

tsahota/NMproject documentation built on Oct. 1, 2022, 11:51 a.m.