tests/testthat/test_strict_stasis_sl.R

test_that("runs without problems", {
  expect_no_condition(strict_stasis_sl(1:3))
})

test_that("incorrect parameters are caught", {
  expect_error(strict_stasis_sl(1:2, intrapop_var = 0))
  expect_error(strict_stasis_sl(1:2, n_per_sample = 0))
})

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.