Kohort sağ kalım olasılıkları
Cynthia'nın 1999'da 18 yaşında olan birinin 23 yaşına kadar hayatta kalma olasılığı için daha önce hesapladığı değer aslında dönem sağ kalım olasılığıydı. Sağ kalım olasılıklarının zaman içindeki dinamiklerini hesaba katmak için hesaplarını nasıl ayarlayabileceğine yardım eder misin? Çarpma kuralında kullanılacak bir yıllık sağ kalım olasılıkları bu yüzden yaşam tablosundan köşegen biçimde çıkarılmalı:
$$ _5p_{18, 1999} = p_{18, 1999} \cdot p_{19,2000} \cdot p_{20,2001} \cdot p_{21,2002} \cdot p_{22,2003} $$
Önceki egzersizden life_table nesnesi hâlâ yüklü.
Bu egzersiz, kursun bir parçasıdır
R ile Hayat Sigortası Ürünlerinin Değerlemesi
Egzersiz talimatları
subset()kullanarak \(1999 - 18 = 1981\) doğumlu kadınlar için kohort yaşam tablosunu oluştur ve yazdır.life_table_1981'inqxsütunundan kohort bir yıllık sağ kalım olasılıklarınıpxolarak tanımla.- (18) için 5 yıllık kohort sağ kalım olasılığını hesapla.
- Bu hesabı bir asır önceki 1881 doğum yılı için tek satırlık bir komutla tekrar edebilir misin? Hem
with()hem desubset()kullanman gerekecek.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
# Construct and print the cohort life table for birth year 1981
life_table_1981 <- ___(___, ___)
life_table_1981
# 1981 cohort one-year survival probabilities
px <- ___
# 1981 cohort survival probability that (18) survives 5 more years
___(px[(___):(___)])
# 1881 cohort survival probability that (18) survives 5 more years
___(___(life_table, year - age == ___), prod(1 - qx[(18 + 1):(22 + 1)]))