tests/testthat/test-test-randomTF.R

test_that("randomTF works", {
  library(rioja)
  data("RLGH")
  data("SWAP")
  expect_no_condition(randomTF(spp = SWAP$spec, fos = RLGH$spec, env = SWAP$pH, fun = WA, col = "WA.inv", n = 10))
  expect_no_condition(randomTF(spp = SWAP$spec, fos = RLGH$spec, env = SWAP$pH, fun = MAT, col = "MAT.wm", n = 10, k = 5))
})

Try the palaeoSig package in your browser

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

palaeoSig documentation built on March 31, 2023, 9:34 p.m.