context("Core model tests")
test_that("Check that we get the output we expect with cycleModelSim.", {
outt <- cycleModelSim(c(0.1, 0.1, 0.01, 0.01), t = c(0.0, 0.1, 0.2, 0.3, 0.4))
expect_equal(dim(outt), c(5, 3))
})
test_that("Check that we get the output we expect with cycleModelDelay", {
outt <- cycleModelDelay(c(0.1, 0.1, 0.01, 0.01), c(0.0, 0.1, 0.01, 0.01), delay = 0.2, t = c(0.0, 0.1, 0.2, 0.3, 0.4))
expect_equal(dim(outt), c(5, 3))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.