test_that("immig_event produces correct output for empty island", {
set.seed(
1,
kind = "Mersenne-Twister",
normal.kind = "Inversion",
sample.kind = "Rejection"
)
island_tbl <- immig_event(
timeval = 0.16,
island_tbl = create_test_island_tbl(island_scenario = 0),
mainland_spec = 1
)
expect_true(is.data.frame(island_tbl))
expected_island_tbl <- create_test_island_tbl(island_scenario = 1)
expect_equal(island_tbl, expected_island_tbl)
})
test_that("immig_event produces correct output for recolonisation", {
set.seed(
1,
kind = "Mersenne-Twister",
normal.kind = "Inversion",
sample.kind = "Rejection"
)
island_tbl <- immig_event(
timeval = 0.5,
island_tbl = create_test_island_tbl(island_scenario = 1),
mainland_spec = 1
)
expect_true(is.data.frame(island_tbl))
expected_island_tbl <- create_test_island_tbl(island_scenario = 46)
expect_equal(island_tbl, expected_island_tbl)
})
test_that("immig_event produces correct output for second immigrant", {
set.seed(
1,
kind = "Mersenne-Twister",
normal.kind = "Inversion",
sample.kind = "Rejection"
)
island_tbl <- immig_event(
timeval = 0.5,
island_tbl = create_test_island_tbl(island_scenario = 1),
mainland_spec = 2
)
expect_true(is.data.frame(island_tbl))
expected_island_tbl <- create_test_island_tbl(island_scenario = 47)
expect_equal(island_tbl, expected_island_tbl)
})
test_that("immig_event fails with incorrect input", {
island_tbl <- create_test_island_tbl(island_scenario = 1)
expect_error(immig_event(
timeval = "nonsense",
island_tbl = island_tbl,
mainland_spec = 1
))
expect_error(immig_event(
timeval = 0.5,
island_tbl = "nonsense",
mainland_spec = 1
))
expect_error(immig_event(
timeval = 0.5,
island_tbl = island_tbl,
mainland_spec = "nonsense"
))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.