portfolio <- create_portfolio_template()
portfolio$accounts$taxable <- c(10000, 30000)
portfolio <-
calc_effective_tax_rate(
portfolio,
tax_rate_ltcg = 0.20,
tax_rate_ordinary_income = 0.40
)
portfolio$aftertax$effective_tax_rate
Run the code above in your browser using DataLab