tests/testthat/test-one-lambda.R

chisq <- 22
lambdas <- 1
gamma <- 2

test_that("warning, not error, on one lambda", {
  expect_warning(peba_pvalue(chisq, lambdas, 2))
  expect_warning(eba_pvalue(chisq, lambdas, 2))
  expect_warning(peba_pvalue(chisq, lambdas, 2))
})

Try the semTests package in your browser

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

semTests documentation built on Nov. 5, 2025, 6:22 p.m.