Ở đâu, lúc nào cũng được?
Sau khi xem lại thói quen chi tiêu, Cynthia tự hỏi cô sẽ tích lũy được bao nhiêu tiền nếu gửi tiền vào tài khoản ngân hàng thay vì chi cho tải nhạc và vé hòa nhạc. Vì vậy, bạn sẽ tính giá trị của các dòng tiền tại một thời điểm trong tương lai, sử dụng một hàm chiết khấu phù hợp.
Mẫu chi tiêu của Cynthia được minh họa ở trên. Vector cash_flows, mà bạn đã định nghĩa trong bài tập đầu tiên, đã được nạp sẵn vào không gian làm việc của bạn. Lãi suất vẫn là 2%.
Bài tập này là một phần của khóa học
Định giá Sản phẩm Bảo hiểm Nhân thọ bằng R
Hướng dẫn bài tập
- Định nghĩa hàm
discount()để tính giá trị tại thời điểm \(s\) của 1 EUR được trả tại thời điểm \(t\). - Dùng
discount()để tính giá trị hiện tại củacash_flowstại các thời điểm từ 0 đến 5. Kết quả phải khớp với lần trước, tức 444,93 EUR. - In ra giá trị của vector dòng tiền khi Cynthia tròn 18 tuổi sau 6 năm nữa.
- Tính giá trị tích lũy của vector dòng tiền tại thời điểm 6 theo một cách khác: lần này chuyển
present_valuetại thời điểm 0 về giá trị tại thời điểm 6.
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
# 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(___, ___)