Dočasná vs. doživotní renta

Pomůžeš teď Cynthii napsat funkci pro dočasnou důchodovou anuitu splatnou předem, u níž jsou platby časově omezené? První platba proběhne v čase \(0\) a poslední v čase \(n-1\).

V tvém pracovním prostředí jsou stále k dispozici life_table i R funkce life_annuity_due.

Toto cvičení je součástí kurzu

Oceňování produktů životního pojištění v R

Zobrazit kurz

Pokyny k cvičení

Definuj funkci temporary_life_annuity_due() vycházející z kódu funkce life_annuity_due() tak, aby počítala EPV dočasné důchodové anuity splatné předem. Funkce má navíc argument n, který udává počet plateb. Vektory kpx i discount_factors by proto měly mít celkovou délku n.
Pomocí temporary_life_annuity_due() vypočítej EPV 10leté důchodové anuity splatné předem pro pojištěného ve věku (20) při sazbě 2 % s použitím periodické úmrtnostní tabulky pro ženy z roku 1999.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

# 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 temporary life annuity due for a given age, period of n years, interest rate i and life table
temporary_life_annuity_due <- function(age, n, i, life_table) {
  px <- 1 - life_table$qx
  kpx <- c(1, cumprod(px[(___):(___)]))
  discount_factors <- (1 + i) ^ - (0:(___))
  ___
}

# EPV of a temporary life annuity due for (20) over 10 years at interest rate 2% using life_table
temporary_life_annuity_due(___, ___, ___, ___)

Upravit a spustit kód