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