언제, 어디서든?
소비 패턴을 돌아보며, Cynthia는 다운로드와 콘서트 티켓 대신 돈을 은행 계좌에 넣었다면 얼마를 모았을지 궁금해합니다. 이를 위해, 적절한 할인 함수를 사용해 미래 시점에서 현금흐름의 가치를 계산해 보겠습니다.
위 그림은 Cynthia의 소비 패턴을 보여줍니다. 첫 번째 연습 문제에서 정의했던 cash_flows 벡터는 작업 공간에 미리 로드되어 있습니다. 이자율은 여전히 2%입니다.
이 연습은 강의의 일부입니다
R로 배우는 생명보험 상품 평가
연습 안내
- 시점 $t$에 지급되는 1 EUR의 시점 $s$에서의 가치를 계산하는 함수
discount()를 정의하세요. discount()를 사용해 시점 0부터 5까지의cash_flows현재가치를 계산하세요. 이는 이전 결과(444.93 EUR)와 일치해야 합니다.- 지금으로부터 6년 뒤, Cynthia가 18세가 될 때의 현금흐름 벡터의 가치를 출력하세요.
- 다른 방법으로 시점 6에서의 누적 가치를 계산하세요. 이번에는 시점 0의
present_value를 시점 6의 가치로 변환하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Define the discount function v
discount <- function(s, t, i = 0.02) {
(1 + ___) ^ - (___ - ___)
}
# Calculate the present value
present_value <- sum(cash_flows * discount(___, ___))
present_value
# Calculate the value at time 6
sum(cash_flows * discount(___, ___))
# Calculate the value at time 6, starting from present_value
present_value * discount(___, ___)