Un seguro de vida para la señorita Cathleen
Cynthia ayudó a la señorita Cathleen cuando hizo prácticas en una compañía de seguros de vida. Ahora, la señorita Cathleen, de 48 años, busca protección financiera por si falleciera cerca de su jubilación. Para proteger a sus hijos en crecimiento quiere asegurar una prestación de 40.000 EUR por fallecimiento entre las edades de 55 y 75 años, como se muestra a continuación.
Para valorar este seguro de vida temporal volverás a usar la tabla de mortalidad femenina belga de 1999, de la cual las probabilidades anuales de supervivencia px y las tasas de mortalidad qx ya están precargadas. El tipo de interés supuesto del 5 % está disponible como i.
Este ejercicio forma parte del curso
Valoración de productos de seguros de vida en R
Instrucciones del ejercicio
- Calcula las probabilidades de mortalidad diferidas \(q_{48}, \: _{1|}q_{48}, \: \ldots, \: _{26|}q_{48}\) de una persona de 48 años hasta los 75 como el producto de probabilidades de supervivencia multianuales y tasas de mortalidad.
- Define los factores de descuento adecuados al tipo
i. - Especifica el vector
benefitscomo las prestaciones por fallecimiento de este seguro de vida temporal. - Calcula el valor actual esperado del plan.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# Deferred mortality probabilites of (48)
kqx <- c(___, ___(px[(___):(___)])) * qx[(___):(___)]
# Discount factors
discount_factors <- (___) ^ - (1:length(kqx))
# Death benefits
benefits <- c(rep(___, ___), rep(___, length(kqx) - 7))
# EPV of the death benefits
EPV_death_benefits <- ___
EPV_death_benefits