Cynthia có khả năng sống đến 100 tuổi cao đến mức nào?
Là người mê thống kê R, Cynthia rất thích những khám phá đầu tiên với bảng sống của năm 1999. Cô ấy muốn dùng R để hiểu sâu hơn, đặc biệt là xác suất trở thành người thọ trăm tuổi. Xác suất này đối với một người 0 tuổi (dùng dữ liệu năm 1999) là bao nhiêu? Còn với một người 18 tuổi thì sao? Bạn có thể tìm cách tính các xác suất đó không? Sau đó, hãy trực quan hóa \((k,\ _kp_{18})\).
Trong các bài tập sau, bảng sống giai đoạn năm 1999 cho nữ giới ở Bỉ đã được nạp sẵn và lưu trong đối tượng life_table, và cột lx đã được trích sẵn cho 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
- Dùng
lxđể tính xác suất một người 0 tuổi trở thành người thọ trăm tuổi (tức đạt đến 100 tuổi). Nhớ trích xuất theo chỉ số. - Tính cùng xác suất cho một người 18 tuổi.
- Tính và vẽ các xác suất một người 18 tuổi sống sót đến các tuổi 18, 19, … cho đến 100. Đặt
klà một vector từ 0 đến 82. Dùngkđể tính các xác suất.
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.
# Compute the probabilty for (0) to reach the age 100
___
# Compute the probabilty for (18) to reach the age 100
___
# Plot the survival probabilties for (18) up to age 100
k <- ___
plot(k, ___,
pch = 20,
xlab = "k",
ylab = expression(paste(""[k], "p"[18])),
main = "Survival probabilities for (18)")