tests/testthat/test-rate_adj_indirect.R

test_that("rate_adj_indirect works", {

  res <- rate_adj_indirect(.data = selvin_data_1960, .std = selvin_data_1940)

  expect_equal(nrow(res), 1)

})

Try the tidyrates package in your browser

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

tidyrates documentation built on May 29, 2024, 9:49 a.m.