tests/testthat/test-get_eta_shk.R

testthat::test_that("get_eps_shk returns a dataframe", {
  eta <- get_eta_shk(xpdb_NLME$TwCpt_IVBolus_FOCE_ELS)

  testthat::expect_true(class(eta) == "data.frame")
  testthat::expect_true(nrow(eta) > 0)
})

Try the Certara.ModelResults package in your browser

Any scripts or data that you put into this service are public.

Certara.ModelResults documentation built on April 4, 2025, 2:43 a.m.