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")))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.