tests/testthat/test-100-cmt.R

In nlmixr2/rxode2: Facilities for Simulating from ODE-Based Models

rxTest({
  mod <- rxode2(paste(sprintf("d/dt(amt%s) = -k1*amt%s", 1:105, 1:105), collapse = ";"))

  et <- eventTable() %>% add.sampling(0:180)

  test_that("initial conditions work", {
    inits <- structure(rep(10, 105), .Names = sprintf("amt%s", 1:105))

    dat <- mod %>% rxSolve(et, c(k1 = 0.1), inits = inits)

    for (j in seq(3, 106)) {
      expect_equal(dat[, 2], dat[, j])
    }
  })

  test_that("Events work", {
    for (i in 1:105) {
      et$add.dosing(10, dosing.to = i, start.time = 0)
    }

    dat <- mod %>% rxSolve(et, c(k1 = 0.1))

    for (j in seq(3, 106)) {
      expect_equal(dat[, 2], dat[, j])
    }
  })
})