tests/testthat/test-expandedjameson.R

In Ghayabh/bacterial-growth: bacterialgrowth Package

test_that("Checking the expanded jameson model", {
  expect_equal(length(ode(y = c(Q1=1/((1/exp(-2))-1),Q2=1/((1/exp(-10))-1),y1=1,y2=10),times = seq(from=0, to=200, by = 1), func = expandedjameson, parms = c(gamma=0.5, mumax1 = 0.14, mumax2=0.3, ymax1=100000,ymax2=10000000))), 1005)
})