tests/testthat/test-ird.R

testthat::test_that("ird()", {
  data("byHeart2011")
  ird_res <- ird(byHeart2011, phases = c(1,2))
  testthat::expect_equal(round(ird_res$ird, 3), 0.845)
})

Try the scan package in your browser

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

scan documentation built on April 1, 2026, 9:06 a.m.