Calculate WACC in R

The Weighted Average Cost of Capital (WACC) represents the average cost of financing a company's debt and equity. There are two approches to calculating it, one based on the "Build-up" approach, the other on the Capital Assets Pricing Model (CAPM) approach.

$$\text{WACC} = C_e \times E + C_d \times D$$

where $C_d$ is the after-tax cost of debt, E and D the proportion of equity and debt in a firm based on market value, and $C_e$ is the cost of equity, which, using the CAPM approach, is calculated with:

$$C_e = R_f + \beta(R_m) + R_s + \text{Risk} + \text{Firm Risk}$$

where $R_f$ is risk-free rate, $R_m$ is the market premium, $R_s$ is the company size premium, Risk the country risk premium, Firm Risk the firm-specific risk and $\beta$ is a measure of the systematic risk, usually of the industry sector, in comparison to the market as a whole.

According to this paper, most companies do it wrong.

waccR make sit super easy to get the data for the US:

# WACC: 

wacc_usa <- wacc()
# Industry Betas (US): 

betas_usa <- betas() 

Try the waccR package in your browser

Any scripts or data that you put into this service are public.

waccR documentation built on May 2, 2019, 2:07 a.m.