Equity Valuation in R
Cliff Ang
Senior Vice President, Compass Lexecon
[1] Revenues
[2] Less: Cost of Goods Sold
$ ================== $
[3] Gross Profit
[4] Less: Operating Expenses
$ ================== $
[5] Operating Income or EBIT
[6] Less: Interest Expense
$ ================== $
[7] Pre-Tax Income
[8] Less: Taxes
$ ================== $
[9] After-Tax Income
# Also called "Sales"
# Earnings Before Interest & Taxes
# Compensation to debt holders
# Payment to the government
# Also called "Net Income"
[9] After-Tax Income
[10] Add: Depreciation and Amortization
[11] Less: Capital Expenditures
[12] Less: Increases in Working Capital
$ ================== $
[13] Free Cash Flow to Equity
# Non-cash charge. Cash spent at time of purchase
# Cash spent on capital investments
# Cash spent on additional working capital needs
Terminal Value (TV) is the value of the cash flows beyond the forecast period
Commonly estimated using the Perpetuity with Growth Model, which is
$$TV = \frac{FCFE_{T+1}}{k_e - g} = \frac{FCFE_T * (1 + g)}{k_e - g}$$
where
Suppose you have a 5 year forecast period, such that $FCFE_5$ = $ \$100 $. Assume that $g$ = 3% and $k_e$ = 15%, then in R:
FCFE_5 <- 100
g <- 0.03
k_e <- 0.15
FCFE_5 * (1 + g) / (k_e - g)
858.3333
Equity Valuation in R