tests/testthat/test-print.R

test_that("print.pmrm_fit", {
  text <- capture.output(print(fit_decline_nonproportional()))
  expect_true(any(grepl("PMRM type", text)))
})

Try the pmrm package in your browser

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

pmrm documentation built on March 12, 2026, 5:07 p.m.