Probabilità di sopravvivenza di coorte
La probabilità che Cynthia ha calcolato prima per un diciottenne nel 1999 di sopravvivere fino ai 23 anni era in realtà una probabilità di sopravvivenza di periodo. Puoi aiutarla ad adattare i calcoli per tenere conto dell'evoluzione nel tempo delle probabilità di sopravvivenza? Le probabilità di sopravvivenza a un anno da usare nella regola del prodotto vanno quindi estratte dalla life table in modo diagonale:
$$ _5p_{18, 1999} = p_{18, 1999} \cdot p_{19,2000} \cdot p_{20,2001} \cdot p_{21,2002} \cdot p_{22,2003} $$
L'oggetto life_table dell'esercizio precedente è ancora caricato.
Questo esercizio fa parte del corso
Valutazione dei prodotti assicurativi sulla vita in R
Istruzioni dell'esercizio
- Crea e stampa la life table di coorte per le femmine nate nel \(1999 - 18 = 1981\) usando
subset(). - Definisci le probabilità di sopravvivenza di coorte a un anno
pxa partire dalla colonnaqxdilife_table_1981. - Calcola la probabilità di sopravvivenza di coorte a 5 anni per (18).
- Riesci a ripetere questo calcolo per l'anno di nascita 1881, un secolo prima, con un unico comando? Dovrai usare sia
with()siasubset().
esercizio interattivo pratico
Prova questo esercizio completando questo codice di esempio.
# 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)]))