tests/testthat/test_strat_filter.R

test_that("no error is thrown",{
  adm = admtools::tp_to_adm(t = seq(0,3), h = c(0, 1,1,2))
  expect_no_error(strat_filter(adm = adm))
  f = strat_filter(adm = adm)
  expect_no_error(f(0.5))
})

Try the StratPal package in your browser

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

StratPal documentation built on Dec. 6, 2025, 5:08 p.m.