### R code from vignette source 'incometax.Rnw'

###################################################
### code chunk number 1: incometax.Rnw:27-30
###################################################
library(Fiscal)
options(width = 80, continue = "  ",
        try.outFile = stdout())


###################################################
### code chunk number 2: incometax.Rnw:33-42
###################################################
prettyL <- function(x) paste0("\U00A3", prettyNum(x, ","))
std_allow <- tax_opts()$std_allow
allow_upper <- tax_opts()$allow_upper
basicband <- tax_opts()$band[1]
higherband <- tax_opts()$band[2]
sumband <- sum(tax_opts()$band)
basicrate <- tax_opts()$rate[1] * 100
higherrate <- tax_opts()$rate[2] * 100
additionalrate <- tax_opts()$rate[3] * 100


###################################################
### code chunk number 3: incometax.Rnw:103-104
###################################################
incometax(12570)


###################################################
### code chunk number 4: incometax.Rnw:109-110
###################################################
all.equal(incometax(12570), incometax(12570, 12570))


###################################################
### code chunk number 5: incometax.Rnw:117-120
###################################################
incometax(12579)

all.equal(incometax(12579), incometax(12579, 12570))


###################################################
### code chunk number 6: incometax.Rnw:129-130
###################################################
incometax(13579)


###################################################
### code chunk number 7: incometax.Rnw:137-138
###################################################
incometax(6009, 5000)


###################################################
### code chunk number 8: incometax.Rnw:144-145
###################################################
incometax(1009, 0)


###################################################
### code chunk number 9: incometax.Rnw:152-157
###################################################
incometax(12579 + 37700)

incometax(5009 + 37700, 5000)

incometax(9 + 37700, 0)


###################################################
### code chunk number 10: incometax.Rnw:170-171
###################################################
incometax(51279)


###################################################
### code chunk number 11: incometax.Rnw:180-181
###################################################
incometax(43709, 5000)


###################################################
### code chunk number 12: incometax.Rnw:187-188
###################################################
incometax(38709, 0)


###################################################
### code chunk number 13: incometax.Rnw:195-196
###################################################
incometax(100000)


###################################################
### code chunk number 14: incometax.Rnw:202-205
###################################################
incometax(104000)

incometax(120000)


###################################################
### code chunk number 15: incometax.Rnw:211-212
###################################################
incometax(125140)


###################################################
### code chunk number 16: incometax.Rnw:220-223
###################################################
incometax(125139 + 6)

incometax(125139 + 6 + 1)


###################################################
### code chunk number 17: incometax.Rnw:229-231
###################################################
incometax(125139 + 4 + 7)
7 * 0.45


###################################################
### code chunk number 18: incometax.Rnw:237-241
###################################################
incometax(125139 + 19)
19 * 0.45

incometax(125139 + 10000)


###################################################
### code chunk number 19: incometax.Rnw:248-249
###################################################
incometax(125139, -10000)


###################################################
### code chunk number 20: incometax.Rnw:255-256
###################################################
all.equal(incometax(125139, -10000), incometax(125139 + 10000), check.attributes = FALSE)


###################################################
### code chunk number 21: incometax.Rnw:261-264
###################################################
incometax(100000, -1000)

incometax(100000 + 1000)


###################################################
### code chunk number 22: incometax.Rnw:275-276
###################################################
allowance(10000, 600, FALSE)


###################################################
### code chunk number 23: incometax.Rnw:282-283
###################################################
incometax(10000, 6991)


###################################################
### code chunk number 24: incometax.Rnw:295-296
###################################################
allowance(10000, 600)


###################################################
### code chunk number 25: incometax.Rnw:302-303
###################################################
incometax(10000, 6990)


###################################################
### code chunk number 26: incometax.Rnw:310-311
###################################################
incometax(13579)


###################################################
### code chunk number 27: incometax.Rnw:317-318
###################################################
allowance(13579, 200 + 600)


###################################################
### code chunk number 28: incometax.Rnw:325-326
###################################################
incometax(13579, 9570)


###################################################
### code chunk number 29: incometax.Rnw:333-334
###################################################
incometax(51279)


###################################################
### code chunk number 30: incometax.Rnw:340-341
###################################################
allowance(51279, 7940 + 1200)


###################################################
### code chunk number 31: incometax.Rnw:347-348
###################################################
incometax(51279, 9570)


###################################################
### code chunk number 32: incometax.Rnw:359-360
###################################################
incometax(112570)


###################################################
### code chunk number 33: incometax.Rnw:367-368
###################################################
incometax(112570, 0)


###################################################
### code chunk number 34: incometax.Rnw:374-375
###################################################
allowance(112570, 34970.4 + 3500)


###################################################
### code chunk number 35: incometax.Rnw:384-385
###################################################
incometax(112570, -2460)