Skip to contents

Produce trace-plot for fit if applicable

Usage

traceplot(x, ...)

Arguments

x

fit object

...

Additional arguments passed to nlmixr2plot::traceplot().

Value

Fit traceplot or nothing.

Author

Rik Schoemaker, Wenping Wang & Matthew L. Fidler

Examples

# \donttest{

library(nlmixr2est)
#> 
#> Attaching package: ‘nlmixr2est’
#> The following objects are masked from ‘package:nlmixr2’:
#> 
#>     addCwres, addNpde, addTable, foceiControl, nlmeControl, nlmixr2,
#>     saemControl, setOfv, tableControl, vpcSim
## The basic model consiss of an ini block that has initial estimates
one.compartment <- function() {
  ini({
    tka <- 0.45 # Log Ka
    tcl <- 1 # Log Cl
    tv <- 3.45    # Log V
    eta.ka ~ 0.6
    eta.cl ~ 0.3
    eta.v ~ 0.1
    add.sd <- 0.7
  })
  # and a model block with the error sppecification and model specification
  model({
    ka <- exp(tka + eta.ka)
    cl <- exp(tcl + eta.cl)
    v <- exp(tv + eta.v)
    d/dt(depot) = -ka * depot
    d/dt(center) = ka * depot - cl / v * center
    cp = center / v
    cp ~ add(add.sd)
  })
}

## The fit is performed by the function nlmixr/nlmix2 specifying the model, data and estimate
fit <- nlmixr2(one.compartment, theo_sd,  est="saem", saemControl(print=0))
#>  
#>  
#>  
#>  parameter labels from comments will be replaced by 'label()'
#>  
#> → loading into symengine environment...
#> → pruning branches (`if`/`else`) of saem model...
#>  done
#> → finding duplicate expressions in saem model...
#> → optimizing duplicate expressions in saem model...
#>  done
#> Calculating covariance matrix
#> → loading into symengine environment...
#> → pruning branches (`if`/`else`) of saem model...
#>  done
#> → finding duplicate expressions in saem predOnly model 0...
#> → finding duplicate expressions in saem predOnly model 1...
#> → optimizing duplicate expressions in saem predOnly model 1...
#> → finding duplicate expressions in saem predOnly model 2...
#>  done
#>  
#> → Calculating residuals/tables
#>  done
#> → compress origData in nlmixr2 object, save 5952
#> → compress phiM in nlmixr2 object, save 62360
#> → compress parHist in nlmixr2 object, save 9560
#> → compress saem0 in nlmixr2 object, save 23136

# This shows the traceplot of the fit (useful for saem)
traceplot(fit)


# }