Vẽ kỳ vọng sống theo độ tuổi
Cynthia muốn trực quan hóa kỳ vọng sống như một hàm theo độ tuổi. Bạn có thể hướng dẫn Cynthia cách dựng đồ thị như vậy không?
Để làm việc này hiệu quả trong R, trước tiên bạn nên viết một hàm tính kỳ vọng sống rút gọn (curtate life expectancy) cho một độ tuổi và bảng tử vong (life table) nhất định. Sau đó, bạn có thể áp dụng hàm này cho toàn bộ các độ tuổi trong bảng. Dùng sapply() (docs) để đầu ra được đơn giản hóa về cấu trúc dữ liệu cơ bản nhất có thể.
Đối tượng life_table đã được nạp sẵn chứa bảng tử vong theo thời kỳ năm 1999 cho nữ giới ở Bỉ.
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
- Hoàn thiện mã định nghĩa hàm
curtate_future_lifetime(). - Tạo vector
agesbằng cách trích xuất cộtagetừlife_table. - Dùng
sapply()với các đối sốages,curtate_future_lifetime, vàlife_tableđể tính kỳ vọng sống rút gọn tại mọi độ tuổi trong bảng. - Vẽ
future_lifetimestheoages.
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 curtate expected future lifetime for a given age and life table
curtate_future_lifetime <- function(age, life_table) {
px <- ___
kpx <- ___(px[(___):length(px)])
___(___)
}
# Vector of ages
ages <- ___
# Curtate future lifetimes for all ages
future_lifetimes <- ___(___, ___, ___)
# Future lifetime by age
plot(___, ___, type = 'l', lwd = 2, col = "green", xlab = "Age x", ylab = "Future lifetime", main = "Future lifetime by age")