timings/b1c5528a17b026460af57290c0083f0e96963195/grattan/tests/testthat/test_bto.R
In HughParsonage/grattan: Australian Tax Policy Analysis
context("BTO")
test_that("Error handling", {
expect_error(bto(1, fy.year = "1988-89"))
})
test_that("BTO returns known results", {
expect_equal(bto(25000, "2013-14"),
2850) # online calculator
expect_equal(bto(10e3, rate1 = 0.1, benefit_threshold = 9e3),
100)
bto_199697 <- bto(6008, "2005-06")
expect_equal(bto_199697, 2)
})
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("BTO")
test_that("Error handling", {
expect_error(bto(1, fy.year = "1988-89"))
})
test_that("BTO returns known results", {
expect_equal(bto(25000, "2013-14"),
2850) # online calculator
expect_equal(bto(10e3, rate1 = 0.1, benefit_threshold = 9e3),
100)
bto_199697 <- bto(6008, "2005-06")
expect_equal(bto_199697, 2)
})
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.