Imediată vs. anticipată

Ca temă de urmărire, superiorul Cynthiei îi cere să determine cum să adapteze scriptul pentru o rentă viageră imediată, în care plățile încep după un an.

Tabela de mortalitate belgiană feminină din 1999 este preîncărcată ca life_table, iar codul soluției din exercițiul anterior este oferit ca punct de plecare. Scrie life_annuity_due în consolă dacă vrei să consulți definiția funcției.

Acest exercițiu face parte din cursul

Evaluarea produselor de asigurare de viață în R

Vezi cursul

Instrucțiuni pentru exercițiu

Pe baza funcției life_annuity_due(), scrie o nouă funcție life_immediate_annuity() care calculează VPA a unei rente viagere imediate întregi. Deoarece nu există nicio plată la momentul 0 pentru o rentă imediată, atât kpx, cât și discount_factors trebuie definite începând de la momentul 1.
Calculează VPA a unei rente viagere imediate întregi pentru (20) la o rată a dobânzii constante de 2%, folosind life_table. Verifică că rezultatul este cu 1 EUR mai mic decât cel al rentei anticipate.

Exercițiu interactiv practic

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

# EPV of a whole life annuity due for (20) at interest rate 2% using life_table
life_annuity_due(20, 0.02, life_table)

# Function to compute the EPV of a whole life immediate annuity for a given age, interest rate i and life table
life_immediate_annuity <- function(age, i, life_table) {
  px <- ___
  kpx <- ___(px[(age + 1):length(px)])
  discount_factors <- (___) ^ - (___)
  sum(___)
}

# EPV of a whole life immediate annuity for (20) at interest rate 2% using life_table
life_immediate_annuity(___, ___, ___)

Editează și rulează codul