tests/testthat/test-interception_probability.R

In ascotraceR: Simulate the Spread of Ascochyta Blight in Chickpea

# Define parameters after model defaults
plant_density <-
  5 * max(15000)

spore_interception_parameter <-
  0.00006 * (15000 / 350)

test1 <-
  interception_probability(target_density = plant_density,
                           k = spore_interception_parameter)

test2 <-
  interception_probability(1e12,0.00005)

test_that("function returns the correct probabilities", {
  expect_equal(test1, 1)

})

test_that("correct 'type' and length is returned", {
  expect_type(test1, "double")
  expect_length(test1, 1)
})


test_that("test2 contains correct output",{
  expect_equal(test2,1)

})