View source: R/progressivity.R
progressivity | R Documentation |
Compute the progressivity
progressivity(income, tax, measure = c("Reynolds-Smolensky", "Kakwani"))
income |
Pre-tax income. |
tax |
Tax paid. |
measure |
Currently, only "Reynolds-Smolensky" progressivity is calculated:
where |
The progressivity measure. Positive for progressive tax systems, and higher the value the more progressive the system.
I <- c(10e3, 20e3, 50e3, 100e3, 150e3)
progressivity(I, 0.3 * I) # zero
progressivity(I, income_tax(I, "2017-18"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.