Cálculos de pensão considerando a mortalidade

Como o valor presente muda quando você leva a mortalidade em conta? Os pagamentos da pensão deixam de ser garantidos e passam a depender da sobrevivência do beneficiário. As probabilidades anuais de sobrevivência px já foram carregadas, assim como as variáveis benefits, discount_factors, PV_65 e PV_20 criadas no exercício anterior.

Este exercicio faz parte do curso

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

Ver curso

Instruções do exercicio

Armazene as probabilidades de sobrevivência de uma pessoa de 65 anos até a idade de 100 na variável kpx. Garanta que kpx comece com 1.
Calcule o EPV na idade de 65 anos da pensão considerando a mortalidade. Atribua o resultado a EPV_65 e compare o valor com PV_65, que não considera a mortalidade.
Desconte o EPV na idade de 65 para o EPV na idade de 20, levando em conta tanto a taxa de juros de 3% quanto a sobrevivência de (20) até a idade de 65. Novamente, compare EPV_20 com PV_20.

exercicio interativo prático

Tente este exercicio completando este código de exemplo.

# Survival probabilities of (65) up to age 100
kpx <- c(1, ___(px[(___):(___)]))

# EPV of pension at age 65
EPV_65 <- ___(___ * ___ * ___)
cbind(PV_65, EPV_65)

# EPV of pension at age 20
EPV_20 <- EPV_65 * (1.03 ^ - 45 * ___(px[(___):(___)]))
cbind(PV_20, EPV_20)

Editar e Executar Código