Seguro de vida diferido

Cynthia agora desafia Ethan a alterar o código por conta própria para calcular o VPE de um seguro de vida diferido sobre \((x)\) para uma dada taxa de juros constante \(i\). A figura a seguir mostra a linha do tempo correspondente para um período de carência de \(u\) anos.

Não há benefício por morte se o segurado falecer durante os primeiros \(u\) anos. A partir do tempo \(u\), um benefício por morte de 1 EUR é pago ao final do ano de falecimento do segurado.

A função whole_life_insurance() e o VPE de um seguro de vida vitalício para uma pessoa de 20 anos, à taxa de juros \(i = 2\%\) e usando a life_table feminina de 1999, são fornecidos como ponto de partida.

Este exercicio faz parte do curso

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

Ver curso

Instruções do exercicio

Especifique a função deferred_life_insurance() que calcula o VPE de um seguro de vida diferido para uma dada age, período de carência u, taxa de juros i e life table.
Aplique a função deferred_life_insurance() para calcular o VPE de um seguro de vida com período de carência de 45 anos. Use idade 20, taxa de juros de 2% e a life_table feminina de 1999 já carregada.

exercicio interativo prático

Tente este exercicio completando este código de exemplo.

# EPV of a whole life insurance for (20) at interest rate 2% using life_table
whole_life_insurance(20, 0.02, life_table)

# Function to compute the EPV of a deferred whole life insurance
deferred_life_insurance <- function(age, u, i, life_table) {
  qx <- life_table$qx;  px <- 1 - qx
  kpx <- c(1, cumprod(px[(age + 1):(length(px) - 1)]))
  kqx <- kpx * qx[(age + 1):length(qx)]
  discount_factors <- (1 + i) ^ - (1:length(kqx))
  benefits <- c(rep(___, ___), rep(___, length(kpx) - u))
  sum(___ * discount_factors * kqx)
}

# EPV of a deferred life insurance for (20) deferred over 45 years at interest rate 2% using life_table
deferred_life_insurance(___, ___, ___, ___)

Editar e Executar Código