tests/testthat/test-marginal_rate.R

test_that("marginal_rate works", {
  s1314 <- .sample_file_1314()[1:101]
  mr100 <- marginal_rate(s1314, "2013-14")
  mr1   <- marginal_rate(s1314, "2013-14", run = 1)
  expect_equal(mr1[1], 0)
  expect_equal(mr100[1], 0)
})

Try the grattan package in your browser

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

grattan documentation built on June 22, 2024, 11:55 a.m.