tests/testthat/test_model.R

In meyer-lab/cell-cycle-growth: Analysis of Cell Cycle Reporter Data

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))
})