| tax_run_spv | R Documentation |
Run a generic SPV-level tax engine
tax_run_spv(tax_basis, tax_spec, acquisition_price = NULL)
tax_basis |
Data frame with at least |
tax_spec |
Object returned by |
acquisition_price |
Optional numeric scalar. Acquisition tax basis used
for the initial asset split. If |
A list with:
tax_table: yearly tax table,
summary: one-row tibble with headline tax aggregates,
tax_spec: the specification used for the run,
acquisition_price: acquisition basis actually used.
basis <- tibble::tibble(
year = 0:4,
noi = c(0, 140, 150, 160, 170),
capex = c(0, 0, 20, 0, 0),
interest = c(0, 30, 25, 20, 0),
sale_proceeds = c(0, 0, 0, 0, 900),
pre_tax_equity_cf = c(-1000, 110, 105, 120, 950)
)
spec <- tax_spec_spv(
corp_tax_rate = 0.25,
depreciation_spec = depreciation_spec(
acquisition_split = tibble::tribble(
~bucket, ~share, ~life_years, ~method, ~depreciable,
"land", 0.20, NA, "none", FALSE,
"building", 0.80, 4, "straight_line", TRUE
),
capex_bucket = "building",
start_rule = "full_year"
)
)
out <- tax_run_spv(basis, spec, acquisition_price = 1000)
out$summary
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.