rxodeTest(
{
.rx <- loadNamespace("RxODE")
context("Test Factorial operator")
transTo <- function(model, syntax, match = TRUE) {
mv <- rxModelVars(model)
if (match) {
test_that(
sprintf("%s includes %s", model, syntax),
expect_true(regexpr(syntax, .rx$.rxGetParseModel(), fixed = TRUE) != -1)
)
} else {
test_that(
sprintf("%s dose not include %s", model, syntax),
expect_false(regexpr(syntax, .rx$.rxGetParseModel(), fixed = TRUE) != -1)
)
}
}
transTo("d/dt(m)= factorial(1+fac)-cmt*ka", "factorial(1+fac)")
transTo("d/dt(m)= lgamma(1+fac)-cmt*ka", "lgamma(1+fac)")
transTo("d/dt(m)= gamma(1+fac)-cmt*ka", "lgammafn(1+fac)")
transTo("d/dt(m)= lfactorial(1+fac)-cmt*ka", "lgamma1p(1+fac)")
},
silent = TRUE,
test = "lvl2"
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.