Probabilitățile de supraviețuire ale cohortei

Probabilitatea calculată anterior de Cynthia ca o persoană de 18 ani în 1999 să supraviețuiască până la vârsta de 23 de ani era, de fapt, probabilitatea de supraviețuire a perioadei. O poți ajuta să își ajusteze calculele pentru a ține cont de dinamica probabilităților de supraviețuire în timp? Probabilitățile de supraviețuire pe un an folosite în regula de multiplicare trebuie extrase din tabelul de viață în mod diagonal:

$$ _5p_{18, 1999} = p_{18, 1999} \cdot p_{19,2000} \cdot p_{20,2001} \cdot p_{21,2002} \cdot p_{22,2003} $$

Obiectul life_table din exercițiul anterior este încă încărcat.

Acest exercițiu face parte din cursul

Evaluarea produselor de asigurare de viață în R

Vezi cursul

Instrucțiuni pentru exercițiu

Creează și afișează tabelul de viață al cohortei pentru femei născute în $1999 - 18 = 1981$ folosind subset().
Definește probabilitățile de supraviețuire pe un an ale cohortei, px, din coloana qx a tabelului life_table_1981.
Calculează probabilitatea de supraviețuire pe 5 ani a cohortei pentru (18).
Poți repeta acest calcul pentru anul de naștere 1881, cu un secol mai devreme, într-o singură linie de cod? Va trebui să folosești atât with(), cât și subset().

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

# 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)]))

Editează și rulează codul