Temporária vs. vitalícia

Por fim, você pode ajudar a Cynthia a escrever uma função para uma anuidade vitalícia antecipada temporária, na qual os pagamentos são limitados no tempo? O primeiro pagamento ocorre no instante \(0\) e o último no instante \(n-1\).

Tanto life_table quanto a função em R life_annuity_due ainda estão disponíveis no seu ambiente de trabalho.

Este exercicio faz parte do curso

Avaliação de Produtos de Seguro de Vida em R

Ver curso

Instruções do exercicio

Defina a função temporary_life_annuity_due() a partir do código de life_annuity_due() de modo que o VPEL seja calculado para uma anuidade vitalícia antecipada temporária. A função agora tem um argumento extra n, que indica o número de pagamentos. Tanto kpx quanto discount_factors devem, portanto, ter comprimento total n.
Use temporary_life_annuity_due() para calcular o VPEL de uma anuidade vitalícia antecipada de 10 anos para (20) à taxa de 2% usando a tábua de vida periódica de 1999 para mulheres.

exercicio interativo prático

Tente este exercicio completando este código de exemplo.

# 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(___, ___, ___, ___)

Editar e Executar Código