Hàm định giá niên kim trọn đời

Người hướng dẫn thực tập của Cynthia không rành về R. Ông ấy nhờ cô viết một hàm R tính EPV của niên kim trọn đời trả ngay trên \((x)\) với lãi suất không đổi \(i\) và bảng tử vong cho trước.

Vì quyền lợi cố định là 1 EUR, bạn không cần đưa nó vào trực tiếp trong phép tính.

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

Xem khóa học

Hướng dẫn bài tập

Viết hàm life_annuity_due() để tính EPV của niên kim trọn đời trả ngay với các tham số đầu vào age, lãi suất i và life_table.
Áp dụng life_annuity_due() để tính EPV của niên kim trả ngay cho (20) tại mức lãi suất 2%. Dùng bảng tử vong kỳ 1999 của nữ giới Bỉ đã được nạp sẵn là life_table.
Xem EPV thay đổi thế nào nếu lãi suất tăng lên 5% (giữ tuổi là 20). Và nếu tuổi đổi thành 65 (giữ lãi suất ở mức 2%) thì sao?

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.

# Function to compute the EPV of a whole life annuity due for a given age, interest rate i and life table
life_annuity_due <- function(age, i, life_table) {
  px <- ___
  kpx <- c(___, ___(px[(___):length(px)]))
  discount_factors <- (___) ^ - (0:(___))
  sum(discount_factors * kpx)
}

# EPV of a whole life annuity due for (20) at interest rate 2% using life_table
life_annuity_due(___, ___, ___)

# EPV of a whole life annuity due for (20) at interest rate 5% and for (65) at interest rate 2% using life_table
life_annuity_due(___, ___, ___)
life_annuity_due(___, ___, ___)

Chỉnh sửa và Chạy Mã