xpose_data_nlmixr2 {xpose.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)