tests/testthat/test-issue-67.R

In nlmixrdevelopment/RxODE: Facilities for Simulating from ODE-Based Models

rxodeTest(
  {
    modelCode <- "
TVBASE=14.3;
BASE=TVBASE*exp(EBASE);
SLD(0)=BASE;
d/dt(SLD)=-0.5*SLD;
"
    m1 <- RxODE(modelCode)
    ev <- eventTable() %>% add.sampling(c(0, 1))
    e <- rxSolve(m1, ev, params = c(EBASE = 0.3))
    context("Make sure initial conditions work, Issue #67")
    test_that("baseline works", {
      expect_equal(c(19.3029809483368, 19.3029809483368), e$BASE, tolerance = 1e-6)
    })
  },
  test = "cran"
)