Tính lương hưu có xét đến tử vong
Giá trị hiện tại sẽ thay đổi thế nào khi bạn xét đến tử vong? Khi đó, khoản lương hưu không còn được đảm bảo mà phụ thuộc vào việc người nhận còn sống. Xác suất sống qua một năm px đã được nạp sẵn, cùng với các biến benefits, discount_factors, PV_65 và PV_20 được tạo ở bài trước.
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
- Lưu các xác suất sống sót của một người 65 tuổi cho đến 100 tuổi vào biến
kpx. Đảm bảokpxbắt đầu bằng 1. - Tính EPV tại tuổi 65 của khoản lương hưu khi xét đến tử vong. Gán kết quả vào
EPV_65và so sánh vớiPV_65(không xét đến tử vong). - Chiết khấu EPV tại tuổi 65 về EPV tại tuổi 20, đồng thời xét đến lãi suất 3% và xác suất (20) sống đến 65 tuổi. Tiếp tục so sánh
EPV_20vớiPV_20.
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.
# Survival probabilities of (65) up to age 100
kpx <- c(1, ___(px[(___):(___)]))
# EPV of pension at age 65
EPV_65 <- ___(___ * ___ * ___)
cbind(PV_65, EPV_65)
# EPV of pension at age 20
EPV_20 <- EPV_65 * (1.03 ^ - 45 * ___(px[(___):(___)]))
cbind(PV_20, EPV_20)