Cálculos de pensiones considerando la mortalidad

¿Cómo cambia el valor presente si tienes en cuenta la mortalidad? Los pagos de la pensión dejan de estar garantizados y pasan a depender de la supervivencia de la persona beneficiaria. Las probabilidades de supervivencia de un año px ya están precargadas, así como las variables benefits, discount_factors, PV_65 y PV_20 creadas en el ejercicio anterior.

Este ejercicio forma parte del curso

Valoración de productos de seguros de vida en R

Ver curso

Instrucciones del ejercicio

Guarda en la variable kpx las probabilidades de supervivencia de una persona de 65 años hasta los 100 años. Asegúrate de que kpx empiece por 1.
Calcula el EPV a los 65 años de la pensión teniendo en cuenta la mortalidad. Asigna el resultado a EPV_65 y compara el valor con PV_65, que no considera la mortalidad.
Descuenta el EPV a los 65 años hasta el EPV a los 20 años teniendo en cuenta tanto el tipo de interés del 3% como la supervivencia de (20) hasta los 65 años. De nuevo, compara EPV_20 con PV_20.

Ejercicio interactivo práctico

Prueba este ejercicio y completa el código de muestra.

# 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 y ejecutar código