Nothing
rxodeTest(
{
td <- tempdir()
.rxWithWd(td, {
context("Basic Tests")
test.dir <- tempfile("Rx_base-")
dir.create(test.dir)
ode <- "d/dt(y) = r * y * (1.0 - y/K);"
fn <- file.path(test.dir, "exam3.1.txt")
writeLines(ode, fn)
m1 <- RxODE(model = ode, modName = "m1")
test_that("ODE inside a string", {
expect_equal(class(m1), "RxODE")
})
m2 <- RxODE(filename = fn, modName = "f1")
test_that("ODE inside a text file", {
expect_equal(class(m2), "RxODE")
})
test_that("arguments model= and filename= are mutually exclusive.", {
expect_error(RxODE(model = ode, filename = fn), "must specify exactly one of 'model' or 'filename'")
})
unlink(test.dir, recursive = TRUE)
})
},
silent = TRUE,
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.