Test if the rxode2 model has any parameters with user defined boundaries
testRxUnbounded(ui) assertRxUnbounded(ui, extra = "", .var.name = .vname(ui)) warnRxBounded(ui, extra = "", .var.name = .vname(ui))
ui
: rxode2 uiextra
: extra information to append to the error message.var.name
: variable nameboolean indicating if any parameters have user defined boundaries
assertRxUnbounded()
: Assert that the rxode2 model has any parameters with user defined boundarieswarnRxBounded()
: Warn that the rxode2 model has any parameters with user defined boundariesone.cmt <- function() { ini({ tka <- 0.45; label("Ka") tcl <- log(c(0, 2.7, 100)); label("Cl") tv <- 3.45; label("V") eta.ka ~ 0.6 eta.cl ~ 0.3 eta.v ~ 0.1 add.sd <- 0.7 }) model({ ka <- exp(tka + eta.ka) cl <- exp(tcl + eta.cl) v <- exp(tv + eta.v) linCmt() ~ add(add.sd) }) } testRxUnbounded(one.cmt) try(assertRxUnbounded(one.cmt)) warnRxBounded(one.cmt)
Other Assertions: assertCompartmentExists()
, assertCompartmentName()
, assertCompartmentNew()
, assertRxUi()
, assertVariableExists()
, assertVariableNew()
, testIniDf()
Matthew L. Fidler
Useful links