tests/testthat/test-check_aspatial_siri_inputs.R

In epizootic: Spatially Explicit Population Models of Disease Transmission in Wildlife

test_that("Valid house finch inputs", {
  inputs <- list(
    populations = 6355,
    stages = 2,
    compartments = 4,
    abundance_threshold = 10,
    mortality = c(0.4, 0, 0.505, 0.105, 0.4, 0, 0.45, 0.05),
    mortality_unit = rep(1, 8),
    fecundity = 15,
    fecundity_unit = 1,
    fecundity_mask = c(0, 1, 0, 1, 0, 1, 0, 1),
    transmission = c(0.00002, 0.00001, 7.84e-06, 3.92e-06),
    transmission_unit = rep(0, 4),
    transmission_mask = c(1, 1, 0, 0, 1, 1, 0, 0),
    recovery = c(0.05714286, 0.05714286, 0.1, 0.1),
    recovery_unit = rep(0, 4),
    recovery_mask = c(0, 0, 1, 1, 0, 0, 1, 1),
    carrying_capacity = rep(150000, 6355),
    breeding_season_length = rep(100, 6355),
    segment_abundance = c(c(50000, 50000, 0, 1, 0, 0, 0, 0),
                          rep(c(50000, 50000, 0, 0, 0, 0, 0, 0), 6354)) |>
      matrix(nrow = 8),
    occupied_indices = c(1:6355)
  )
  expect_silent(check_aspatial_siri_inputs(inputs))
})