Nothing
rxodeTest(
{
modelCode <- "
TVBASE=14.3;
BASE=TVBASE*exp(EBASE);
SLD(0)=BASE;
d/dt(SLD)=-0.5*SLD;
"
m1 <- RxODE(modelCode)
ev <- eventTable() %>% add.sampling(c(0, 1))
e <- rxSolve(m1, ev, params = c(EBASE = 0.3))
context("Make sure initial conditions work, Issue #67")
test_that("baseline works", {
expect_equal(c(19.3029809483368, 19.3029809483368), e$BASE, tolerance = 1e-6)
})
},
test = "cran"
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.