예상 현금흐름의 현재가치 (1)

이제 분석을 해 볼 차례예요! 앞에서 Lore가 현재가치(present value) 개념을 소개했죠. 다음 두 연습 문제에서 이 개념을 사용할 예정이니, 예제를 하나 더 보겠습니다.

지금으로부터 1년 뒤에 $100의 현금흐름을 받는다고 예상할 때, 이 현금흐름의 현재가치는 연이율 5%에서 얼마일까요? 이를 계산하려면, 해당 현금흐름을 오늘의 가치로 할인(discount)하면 됩니다. 일반 공식은 다음과 같습니다.

present_value <- cash_flow * (1 + interest / 100) ^ -year

95.238 = 100 * (1.05) ^ -1

다른 방식으로 생각해 볼 수도 있어요. 오늘 $95.238이 있고, 앞으로 1년 동안 5%의 수익을 낸다면, 1년 후에는 얼마가 될까요? 이 문제는 1장에서 이미 풀어 봤습니다! 5%에 해당하는 승수를 찾아서 $95.238에 곱하세요!

100 = 95.238 * (1.05)

아하! 돈을 할인하는 것은 1장에서 주가 수익률 계산할 때 했던 일을 거꾸로 하는 것과 같습니다.

이 연습은 강의의 일부입니다

금융을 위한 R 입문

3년 뒤에 $4000을 받을 것으로 예상하고, 이자가 5%일 때 그 돈의 현재가치는 얼마인가요? 위의 일반 공식을 따라 계산하고 결과를 present_value_4k에 할당하세요.
벡터를 사용하면 cash_flow 전체 열의 현재가치를 한 번에 계산할 수 있어요! cash$cash_flow, cash$year와 일반 공식을 사용해 모든 현금흐름의 현재가치를 5% 이자로 계산하세요. 계산한 값을 present_value라는 열로 cash에 추가하세요.
새 열을 확인할 수 있도록 cash를 출력하세요.

이 예제를 이 샘플 코드를 완성하여 풀어보세요.

# Present value of $4000, in 3 years, at 5%
present_value_4k <- 

# Present value of all cash flows
cash$present_value <-

# Print out cash