Bảo hiểm tử kỳ
Ethan muốn biết EPV của một hợp đồng bảo hiểm nhân thọ thay đổi thế nào nếu phạm vi chi trả bị giới hạn theo thời gian, như minh họa trong hình dưới.
Trước hết, anh ấy tính EPV của bảo hiểm trọn đời cho một người 20 tuổi với lãi suất \(i = 2\%\) và sử dụng life_table đã nạp sẵn cho nữ giới tại Bỉ năm 1999.
Dựa trên hàm whole_life_insurance() bạn đã tạo ở bài trước, bạn có thể hỗ trợ Cynthia viết hàm cho bảo hiểm tử kỳ không?
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_insurance()để tính EPV cho bảo hiểm tử kỳ. Ngoài các đối số quen thuộcage,ivàlife_table, hàm còn nhận đối sốncho biết số năm hợp đồng bảo hiểm có hiệu lực chi trả. - Dùng hàm
temporary_life_insurance()vừa định nghĩa để tính xem EPV của bảo hiểm cho (20) tại mức lãi suất 2% thay đổi thế nào khi phạm vi chi trả bị giới hạn trong 45 năm.
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 insurance for (20) at interest rate 2% using life_table
whole_life_insurance(20, 0.02, life_table)
# Function to compute the EPV of a temporary life insurance
temporary_life_insurance <- function(age, n, i, life_table) {
qx <- life_table$qx
px <- 1 - qx
kpx <- c(1, cumprod(px[(___):(___)]))
kqx <- kpx * qx[(___):(___)]
discount_factors <- (1 + i) ^ - (1:length(kqx))
___(___ * ___)
}
# EPV of a temporary life insurance for (20) over a period of 45 years at interest rate 2% using life_table
temporary_life_insurance(___, ___, ___, ___)