R Under development (unstable) (2025-07-18 r88431 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(testthat)
> library(data.table)
> library(rxode2)
rxode2 4.0.1 using 2 threads (see ?getRxThreads)
  no cache: create with `rxCreateCache()`
> library(nlmixr2est)
Loading required package: nlmixr2data

Attaching package: 'nlmixr2est'

The following objects are masked from 'package:rxode2':

    boxCox, yeoJohnson

> library(testthat)
> if (!identical(Sys.getenv("NOT_CRAN"), "true")) {
+   # when testing CRAN, only use one thread
+   setRxThreads(1L)
+   setDTthreads(1L)
+ }
> 
> test_check("nlmixr2est")

R Under development (unstable) (2025-07-18 r88431 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

>     library(nlmixr2est)
Loading required package: nlmixr2data
>     rxode2::rxClean()
>     one.cmt <- function() {
+         ini({
+             tka <- 0.45
+             tcl <- log(c(0, 2.7, 100))
+             tv <- 3.45
+             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)
+         })
+     }
>     fit <- suppressMessages(nlmixr(one.cmt, theo_sd, est = "saem", 
+         control = saemControl(print = 0, nBurn = 1, nEm = 1, 
+             nmc = 1, nu = c(1, 1, 1))))
>     saveRDS(fit, "fit.rds")
> 
> proc.time()
   user  system elapsed 
  10.82    1.48   17.48 
Calculating -2LL by Gaussian quadrature (nnodes=3,nsd=1.6)
[====|====|====|====|====|====|====|====|====|====] 0:00:00 

> loading into symengine environment...
> pruning branches (`if`/`else`) of saem model...
v done
> finding duplicate expressions in saem predOnly model 0...
[====|====|====|====|====|====|====|====|====|====] 0:00:00 

> finding duplicate expressions in saem predOnly model 1...
[====|====|====|====|====|====|====|====|====|====] 0:00:00 

> finding duplicate expressions in saem predOnly model 2...
[====|====|====|====|====|====|====|====|====|====] 0:00:00 

> optimizing duplicate expressions in saem predOnly model 2...
[====|====|====|====|====|====|====|====|====|====] 0:00:00 

v done
using C compiler: 'gcc.exe (GCC) 14.2.0'


> loading into symengine environment...
> pruning branches (`if`/`else`) of saem model...
v 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...
> optimizing duplicate expressions in saem predOnly model 2...
v done
using C compiler: 'gcc.exe (GCC) 14.2.0'


i parameter labels from comments will be replaced by 'label()'
using C compiler: 'gcc.exe (GCC) 14.2.0'


[ FAIL 0 | WARN 0 | SKIP 0 | PASS 229 ]
> ## test_check("nlmixr2est", stop_on_failure = FALSE, wrap=TRUE,
> ##            reporter = testthat::LocationReporter)
> 
> proc.time()
   user  system elapsed 
 293.17   25.78  419.37