Skip to content

Instantly share code, notes, and snippets.

@HughParsonage

HughParsonage/CGT_tax_expenditure_1415

Created January 18, 2018 05:39
Show Gist options
  • Save HughParsonage/d713c0cf323c919d4f4bb2b831a74461 to your computer and use it in GitHub Desktop.
Save HughParsonage/d713c0cf323c919d4f4bb2b831a74461 to your computer and use it in GitHub Desktop.
Download ZIP
CGT tax expenditure
Raw
CGT_tax_expenditure_1415
library(magrittr)
library(grattan)
library(data.table)
library(SampleFile1415)
as.data.table(sample_file_1415) %>%
.[, tax_noCGT := Taxable_Income + Net_CG_amt] %>%
.[, tax := income_tax(Taxable_Income, "2014-15", .dots.ATO = sample_file_1415)] %>%
.[, tax_new := income_tax(tax_noCGT, "2014-15", .dots.ATO = sample_file_1415)] %>%
.[, .(tot = round(50 * sum(tax_new - tax) / 1e9, 1))]
#> tot
#> 1: 7.6
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment