시작하기무료로 시작하기

여러 개의 인수 (2)

좀 더 복잡한 예제를 생각해 볼까요? Introduction to R for Finance 강의에서 다뤘던 현재가치(present value)를 기억하시나요? 기억이 나지 않으면 여기에서 해당 영상을 복습하실 수 있어요. 아이디어는, 미래에 받게 될 금액을 특정 이자율로 할인(discount)하여 오늘의 가치로 표현한다는 것입니다. 이를 위한 일반 공식은 다음과 같습니다:

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

이 계산을 대신해 주는 함수를 만들 수 있다면 좋지 않을까요? 예를 들면 다음과 같은 형태입니다:

present_value <- pv(cash_flow, i, year)

이 함수는 pv(1500, 5, 2)처럼 숫자를 넣어도 동작해야 하고, 길이가 같은 벡터를 넣어서 한 번에 전체 현재가치 벡터를 계산할 수 있어야 해요!

percent_to_decimal() 함수가 제공되어 있으니 활용하시면 됩니다.

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

금융을 위한 R 중급

강의 보기

연습 안내

  • 함수의 빈칸을 채워 아래를 수행하도록 하세요:
    • 필요한 인수: cash_flow, i, year
    • 할인 승수 생성: (1 + i / 100). i를 소수로 변환하기 위해 percent_to_decimal() 함수를 사용하세요.
    • 현재가치 계산을 수행하세요. 이를 변수에 저장하지 마세요. 마지막에 실행된 줄이므로 자동으로 반환됩니다.
  • 지금으로부터 3년 후에 받을 $1200의 현재가치를, 이자율 7%로 계산하세요.

실습형 인터랙티브 연습

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

# Present value function
pv <- function(___, ___, ___) {
    
    # Discount multiplier
    mult <- 1 + ___(i)
    
    # Present value calculation
    ___ * ___ ^ -___
}

# Calculate a present value
___
코드 편집 및 실행