tests/testthat/testModelLibrary.R

In campsismod: Generic Implementation of a PK/PD Model

library(testthat)

context("Test model library")

test_that("Templates can be loaded successfully", {
  
  model <- model_suite$testing$nonmem$advan1_trans1
  expect_true(model@parameters %>% contains(Theta(index=1, name="K")))
})