2015-16 taxstats miscellany

Hugh Parsonage

2019-05-21

library(data.table)
library(hutils)
library(magrittr)
library(ggplot2)

library(grattan)  # needs to be before require_taxstats.
has_taxstats <- 
  require_taxstats() &&
  require_taxstats1516()
s1516 <- 
  as.data.table(sample_file_1516_synth) %>%
  setkey(Taxable_Income) %>%
  mutate_ntile("Taxable_Income", n = 100L) %>%
  mutate_ntile("Taxable_Income", n = 10L) 
s1516[, tax := income_tax(Taxable_Income, "2015-16", .dots.ATO = .SD)]

Negative gearing

Tax benefits

Average taxable income, by age and gender, 2015