Probabilidades de sobrevivência por coorte
A probabilidade que Cynthia calculou antes para uma pessoa de 18 anos em 1999 sobreviver até os 23 anos era, na verdade, a probabilidade de sobrevivência por período. Você pode ajudar a ajustar os cálculos para levar em conta a dinâmica das probabilidades de sobrevivência ao longo do tempo? As probabilidades anuais usadas na regra do produto devem ser extraídas da tabela vida de forma diagonal:
$$ _5p_{18, 1999} = p_{18, 1999} \cdot p_{19,2000} \cdot p_{20,2001} \cdot p_{21,2002} \cdot p_{22,2003} $$
O objeto life_table do exercício anterior ainda está carregado.
Este exercicio faz parte do curso
Avaliação de Produtos de Seguro de Vida em R
Instruções do exercicio
- Crie e imprima a tabela vida da coorte para mulheres nascidas em \(1999 - 18 = 1981\) usando
subset(). - Defina as probabilidades anuais de sobrevivência da coorte
pxa partir da colunaqxdelife_table_1981. - Calcule a probabilidade de sobrevivência da coorte em 5 anos para (18).
- Consegue repetir esse cálculo para o ano de nascimento 1881, um século antes, em um único comando? Você vai precisar usar
with()esubset().
exercicio interativo prático
Tente este exercicio completando este código de exemplo.
# 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)]))