tests/testthat/test-beverton_holt.R

In danStich/anadrofish: Anadromous Fish Population Responses to Habitat Changes

test_that("Recruitment function returns correct type", {
  
  expect_type(
    beverton_holt(
      a = 250000,
      S = 100,
      b = 0.21904,
      acres = 1,
      error = c("multiplicative", "additive"),
      age_structured = FALSE
    ),
    "double"
  )
  
})