tests/testthat/test-AUDCP_2_points.R

In AlvesKS/epifitter: Analysis and Simulation of Plant Disease Progress Curves

test_that("AUDCP_2_points errors with missing `time`", {
  expect_error(AUDPC_2_points(y0 = 0.1, yT = 0.9), "Missing 'time' value")
})

test_that("AUDCP_2_points errors with missing `y0`", {
  expect_error(AUDPC_2_points(time = 10, yT = 0.9), "Missing 'y0' value")
})

test_that("AUDCP_2_points errors with missing `yT`", {
  expect_error(AUDPC_2_points(time = 10, y0 = 0.1), "Missing 'yT' value")
})

test_that("AUDCP_2_points errors when y0 < 0", {
  expect_error(
    AUDPC_2_points(time = 10, y0 = -0.1, yT = 0.9),
    "y0 and yT must be between 0 and <1 and yT must be > y0"
  )
})

test_that("AUDCP_2_points errors when y0 >= 1", {
  expect_error(
    AUDPC_2_points(time = 10, y0 = 1.1, yT = 0.9),
    "y0 and yT must be between 0 and <1 and yT must be > y0"
  )
})

test_that("AUDPC_2_points returns reasonable values", {
  epi <- sim_logistic(N = 30, y0 = 0.01, dt = 5, r = 0.3, alpha = 0.5, n = 1)
  x <- AUDPC_2_points(time = epi$time[7], y0 = epi$y[1], yT = epi$y[7])
  y <- AUDPC(time = epi$time, y = epi$y, y_proportion = TRUE)
  expect_equal(x, y, tolerance = 0.01)
})