DataCamp Financial Analytics in R
Profitability Metrics, Payback Period
FINANCIAL ANALYTICS IN R
Profitability Metrics, Payback Period Emily Riederer Instructor - - PowerPoint PPT Presentation
DataCamp Financial Analytics in R FINANCIAL ANALYTICS IN R Profitability Metrics, Payback Period Emily Riederer Instructor DataCamp Financial Analytics in R Profitability Metrics & Decision Rules Key Concepts: Profitability Metrics :
DataCamp Financial Analytics in R
FINANCIAL ANALYTICS IN R
DataCamp Financial Analytics in R
DataCamp Financial Analytics in R
DataCamp Financial Analytics in R
DataCamp Financial Analytics in R
n cashflow cumsum(cashflow)
1 2500
2 3000
3 5000 500 4 6000 6500 5 1000 7500
cashflows <- c(-10000, 2500, 3000, 5000, 6000, 1000) cumsum(cashflows) + init_investment
DataCamp Financial Analytics in R
FINANCIAL ANALYTICS IN R
DataCamp Financial Analytics in R
FINANCIAL ANALYTICS IN R
DataCamp Financial Analytics in R
DataCamp Financial Analytics in R
n <- 0:(length(cashflows) - 1) npv <- sum( calc_pv(cashflows, r, n) ) npv
DataCamp Financial Analytics in R
DataCamp Financial Analytics in R
# assume we have calc_npv function with signature: # calc_npv(cashflows, r) uniroot(calc_npv, interval = c(0, 1), cashflows = cashflows)$root
DataCamp Financial Analytics in R
DataCamp Financial Analytics in R
npv_fcf <- calc_npv(future_cashflow, r) profitability_index <- npv_fcf / abs(initial_investment)
DataCamp Financial Analytics in R
FINANCIAL ANALYTICS IN R
DataCamp Financial Analytics in R
FINANCIAL ANALYTICS IN R
DataCamp Financial Analytics in R
DataCamp Financial Analytics in R
DataCamp Financial Analytics in R
final_cashflow <- cashflow[n] terminal_value_period_n <- final_cashflow / (discount_rate - growth_rate) terminal_value_as_present <- terminal_value_period_n / (1 + discount_rate)^n
DataCamp Financial Analytics in R
DataCamp Financial Analytics in R
FINANCIAL ANALYTICS IN R
DataCamp Financial Analytics in R
FINANCIAL ANALYTICS IN R
DataCamp Financial Analytics in R
DataCamp Financial Analytics in R
DataCamp Financial Analytics in R
time cashflow 1
1 1 50 1 2 200 2
2 1 60 2 2 500
DataCamp Financial Analytics in R
time cf 1
1 1 50 1 2 200 2
2 1 60 2 2 500
npv 1 118 2 184
group_by(option) %>% summarize(npv=calc_npv(cf,0.08))
DataCamp Financial Analytics in R
FINANCIAL ANALYTICS IN R
DataCamp Financial Analytics in R
FINANCIAL ANALYTICS IN R
DataCamp Financial Analytics in R
calc_payback() calc_npv() calc_irr() calc_profitability_index()
DataCamp Financial Analytics in R
DataCamp Financial Analytics in R
FINANCIAL ANALYTICS IN R