inst/testthat/test-plots.r

In admbsecr: SECR models with supplementary location information

context("Testing plots")

## These check for lack of errors, but not of plot itself.

test_that("location plotting", {
    expect_that(locations(example$fits$simple.hn, 1), is_true())
    expect_that(locations(example$fits$bearing.hn, 2), is_true())
    expect_that(locations(example$fits$bearing.hn, 3, plot.arrows = FALSE), is_true())
    expect_that(locations(example$fits$simple.hr, 4, xlim = c(0, 5)), is_true())
    expect_that(locations(example$fits$simple.hr, 5, ylim = c(-5, 5)), is_true())
    expect_that(locations(example$fits$simple.hn, 6, levels = seq(0.1, 0.9, 0.1)), is_true())
    expect_that(locations(example$fits$bearing.hn, 7, nlevels = 3), is_true())
    expect_that(locations(example$fits$simple.hr, 8, density = TRUE), is_true())
    expect_that(locations(example$fits$simple.hn, 9, show.legend = FALSE), is_true())
    expect_that(locations(example$fits$bearing.hn, 10, add = TRUE), is_true())
})

test_that("detection function plotting", {
    expect_that(show.detfn(example$fits$simple.hn), is_null())
    expect_that(show.detfn(example$fits$simple.hr, add = TRUE), is_null())
    expect_that(show.detfn(example$fits$bearing.hn, main = "A title"), is_null())
})

test_that("survey plotting", {
    expect_that(show.survey(example$fits$simple.hn), is_null())
    expect_that(show.survey(example$fits$bearing.hn), is_null())
})

test_that("detection surface plotting", {
    expect_that(show.detsurf(example$fits$simple.hn), is_true())
    expect_that(show.detsurf(example$fits$simple.hr), is_true())
    expect_that(show.detsurf(example$fits$bearing.hn), is_true())
})