timings/f429bdfcd37f6ab39a5006bd4dde97f2fb7ee718/grattan/tests/testthat/test_income_tax_cpp.R
In HughParsonage/grattan: Australian Tax Policy Analysis
context("Income tax in C++")
test_that("Equivalence in 2013-14 sample file", {
skip_if_not_installed("taxstats")
library(data.table)
s1314 <- copy(sample_file_1314)
tx <- .subset2(s1314, "Taxable_Income")
tax_rolling <-
rolling_income_tax(tx, "2013-14", .dots.ATO = s1314)
tax_cpp <-
income_tax_cpp(tx, "2013-14", .dots.ATO = s1314)
expect_equal(tax_rolling, tax_cpp)
})
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("Income tax in C++")
test_that("Equivalence in 2013-14 sample file", {
skip_if_not_installed("taxstats")
library(data.table)
s1314 <- copy(sample_file_1314)
tx <- .subset2(s1314, "Taxable_Income")
tax_rolling <-
rolling_income_tax(tx, "2013-14", .dots.ATO = s1314)
tax_cpp <-
income_tax_cpp(tx, "2013-14", .dots.ATO = s1314)
expect_equal(tax_rolling, tax_cpp)
})
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.