Niên kim tạm thời vs trọn đời
Cuối cùng, bạn có thể hỗ trợ Cynthia viết một hàm cho niên kim trọn đời trả trước dạng tạm thời, trong đó các khoản chi trả bị giới hạn theo thời gian không? Khoản chi trả đầu tiên diễn ra tại thời điểm \(0\) và khoản cuối cùng tại thời điểm \(n-1\).
Cả life_table và hàm R life_annuity_due vẫn có sẵn trong không gian làm việc của bạn.
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
temporary_life_annuity_due()dựa trên mã củalife_annuity_due()để EPV được tính cho một niên kim trọn đời trả trước dạng tạm thời. Hàm nay có thêm đối sốncho biết số lần chi trả. Vì vậy, cảkpxvàdiscount_factorsđều phải có tổng độ dài bằngn. - Dùng
temporary_life_annuity_due()để tính EPV của một niên kim trọn đời trả trước kỳ hạn 10 năm cho (20) với lãi suất 2% sử dụng bảng tử vong theo thời kỳ năm 1999 cho nữ.
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.
# EPV of a whole life annuity due for (20) at interest rate 2% using life_table
life_annuity_due(20, 0.02, life_table)
# Function to compute the EPV of a temporary life annuity due for a given age, period of n years, interest rate i and life table
temporary_life_annuity_due <- function(age, n, i, life_table) {
px <- 1 - life_table$qx
kpx <- c(1, cumprod(px[(___):(___)]))
discount_factors <- (1 + i) ^ - (0:(___))
___
}
# EPV of a temporary life annuity due for (20) over 10 years at interest rate 2% using life_table
temporary_life_annuity_due(___, ___, ___, ___)