tests/testthat/test-user-defined-pk-parameter.R

# UserDefinedPKParameter


test_that("It print a user defined pk parameter", {
  userDefinedPKParameter <- addUserDefinedPKParameter(name = "MyAUC", standardPKParameter = StandardPKParameter$AUC_tEnd)
  userDefinedPKParameter$startTime <- 50
  userDefinedPKParameter$endTime <- 80
  expect_no_error(capture.output(userDefinedPKParameter$print()))
})
Open-Systems-Pharmacology/OSPSuite-R documentation built on Feb. 14, 2025, 4:48 p.m.