xpose_data_nlmixr2: Import nlmixr2 output into xpose object

In xpose.nlmixr2: Graphical Diagnostics for Pharmacometric Models: Extension to 'nlmixr2'

Import nlmixr2 output into xpose object

Description

Convert 'nlmixr2' model output into an 'xpose' database.

Usage

xpose_data_nlmixr2(
  obj = NULL,
  pred = NULL,
  wres = NULL,
  gg_theme = theme_readable(),
  xp_theme = theme_xp_default(),
  quiet,
  skip = NULL,
  ...
)

xpose_data_nlmixr(
  obj = NULL,
  pred = NULL,
  wres = NULL,
  gg_theme = theme_readable(),
  xp_theme = theme_xp_default(),
  quiet,
  skip = NULL,
  ...
)

Arguments

obj	nlmixr2 fit object to be evaluated.
pred	Name of the population prediction variable to use for plotting. If unspecified, it will choose either "NPDE", "CWRES", and "RES" (in that order) if the column exists in the data.
wres	Name of the weighted residual variable to use for plotting. If unspecified, it will choose either "NPDE", "CWRES", and "RES" (in that order) if the column exists in the data.
gg_theme	A ggplot2 theme object.
xp_theme	An xpose theme or vector of modifications to the xpose theme (eg. c(point_color = 'red', line_linetype = 'dashed')).
quiet	Logical, if FALSE messages are printed to the console.
skip	Character vector be used to skip the import/generation of: 'data', 'files', 'summary' or any combination of the three.
...	Additional arguments to be passed to the read_delim functions.

Value

An xpose_data object suitable for use in 'xpose'.

Examples

## Not run: 
library(nlmixr2)

one.cmt <- function() {
  ini({
    ## You may label each parameter with a comment
    tka <- 0.45 # Ka
    tcl <- log(c(0, 2.7, 100)) # Log Cl
   ## This works with interactive models
    ## You may also label the preceding line with label("label text")
    tv <- 3.45; label("log V")
    ## the label("Label name") works with all models
    eta.ka ~ 0.6
    eta.cl ~ 0.3
    eta.v ~ 0.1
    add.sd <- 0.7
  })
  model({
    ka <- exp(tka + eta.ka)
    cl <- exp(tcl + eta.cl)
    v <- exp(tv + eta.v)
    linCmt() ~ add(add.sd)
  })
}

theo_sd_fit <- nlmixr2(one.cmt, theo_sd, "focei", control=foceiControl(print=0))

xpdb <- xpose_data_nlmixr2(obj = theo_sd_fit)

## End(Not run)

xpose.nlmixr2 documentation built on June 8, 2022, 5:07 p.m.