timings/1beaa8a07ca1e521f6a1decac7a234ab2fd57770/grattan/tests/testthat/test_LITO.R
In HughParsonage/grattan: Australian Tax Policy Analysis
context("LITO")
test_that("Error handling", {
expect_error(lito(30e3, max_lito = c(445, 450)))
})
test_that("LITO", {
expect_equal(lito(income = c(25e3, 30e3),
max_lito = c(400, 500),
lito_taper = c(0.015, 0.015),
min_bracket = c(37000, 37000)),
c(400, 500))
})
HughParsonage/grattan documentation built on April 1, 2024, 4:10 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("LITO")
test_that("Error handling", {
expect_error(lito(30e3, max_lito = c(445, 450)))
})
test_that("LITO", {
expect_equal(lito(income = c(25e3, 30e3),
max_lito = c(400, 500),
lito_taper = c(0.015, 0.015),
min_bracket = c(37000, 37000)),
c(400, 500))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.