Speranța de viață discretă vs. completă

Lucrând în continuare cu tabela de mortalitate feminină din 1999 pentru Belgia, Cynthia se întreabă care era speranța de viață pentru un nou-născut și pentru o tânără de 18 ani, pe baza datelor din 1999. În plus, vrea să verifice empiric dacă diferența de 0,5 dintre speranța de viață completă și cea discretă, discutată la cursul de Matematica Asigurărilor de Viață, se confirmă în practică.

Amintește-ți din video că speranța de viață discretă se poate calcula astfel:

$$ E[K_x] = \sum_{k=1}^{\infty} {}_kp_x. $$

Probabilitățile de supraviețuire anuale px și speranța de viață completă ex au fost preîncărcate.

Acest exercițiu face parte din cursul

Evaluarea produselor de asigurare de viață în R

Vezi cursul

Instrucțiuni pentru exercițiu

Calculează speranța de viață discretă pentru (0), o nou-născută. Mai întâi, definește probabilitățile de supraviețuire kp0 ca produsul cumulat al lui px. Apoi, afișează suma lui kp0.
Repetă pentru (18), o femeie de 18 ani. De data aceasta, selectează din px valorile începând de la vârsta 18 înainte de a calcula produsul cumulat.
Compară cu speranțele de viață complete. Afișează subsetul din ex corespunzător vârstelor 0 și 18 pe o singură linie, folosind un vector de lungime 2 între paranteze pătrate.

Exercițiu interactiv practic

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

# Survival probabilities and curtate expected future lifetime of (0)
kp0 <- ___
___

# Survival probabilities and curtate expected future lifetime of (18)
kp18 <- ___(px[(___):___])
___

# Complete expected future lifetime of (0) and (18)
___[c(___, ___)]

Editează și rulează codul