Seguro de vida temporário

Ethan quer saber como o VPEL de um seguro de vida muda quando a cobertura é limitada no tempo, como mostrado na figura abaixo.

Ele primeiro calcula o VPEL de um seguro de vida inteira para uma pessoa de 20 anos, a uma taxa de juros \(i = 2\%\) e usando a life_table pré-carregada para mulheres na Bélgica em 1999.

Partindo da função whole_life_insurance() criada no exercício anterior, você pode ajudar a Cynthia a escrever uma função para um seguro de vida temporário?

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_insurance() que calcula o VPEL de um seguro de vida temporário. Além dos argumentos recorrentes age, i e life_table, a função agora recebe um argumento adicional n indicando o número de anos de vigência da cobertura do seguro de vida.
Use sua nova função temporary_life_insurance() para calcular como o VPEL do seguro de vida de (20), à taxa de 2%, muda quando a cobertura é limitada a um período de 45 anos.

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 temporary life insurance
temporary_life_insurance <- function(age, n, i, life_table) {
  qx <- life_table$qx
  px <- 1 - qx
  kpx <- c(1, cumprod(px[(___):(___)]))
  kqx <- kpx * qx[(___):(___)]
  discount_factors <- (1 + i) ^ - (1:length(kqx))
  ___(___ * ___)
}

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

Editar e Executar Código