tests/testthat/test-van_vark.R

test_that("van_vark", {
  testthat::expect_error(TestDimorph::van_vark(Howells_summary, W = Howells_V, Trait = 500, Pop = 500))
  testthat::expect_error(TestDimorph::van_vark(Howells_summary, W = Howells_V, plot = 55))
  testthat::expect_warning(TestDimorph::van_vark(Howells_summary, W = Howells_V, plot = TRUE, q = 1))
  testthat::expect_true(TestDimorph::van_vark(Howells_summary, W = Howells_V)[1, 4] == 0.5271)
})

Try the TestDimorph package in your browser

Any scripts or data that you put into this service are public.

TestDimorph documentation built on Nov. 18, 2023, 1:11 a.m.