msg1 <- "No modifiques el código para definir `%s` dentro de `deferred_life_insurance()`." msg2 <- "No definiste `benefits` correctamente en la definición de `deferred_life_insurance()`. Consulta la pista si necesitas un repaso." msg3 <- "¿Definiste correctamente el valor de retorno de `deferred_life_insurance()`? Es el `sum()` del producto elemento a elemento de `benefits`, `discount_factors` y `kqx`." msg4 <- "¿Llamaste a `deferred_life_insurance()` con los argumentos correctos para calcular el EPV de un seguro de vida con un período de diferimiento de 45 años? Usa la edad 20, tasa de interés del 2% y la `life_table` de mujeres de 1999 precargada." ex() %>% check_output_expr("whole_life_insurance(20, 0.02, life_table)", missing_msg = "No modifiques la llamada a `whole_life_insurance()` que definimos para ti.", append = FALSE) fundef <- ex() %>% check_fun_def("deferred_life_insurance") %>% check_body() fundef %>% { check_code(., "qx <- life_table$qx", fixed = TRUE, append = FALSE, missing_msg = sprintf(msg1, "qx")) check_code(., "px <- 1 - qx", fixed = TRUE, append = FALSE, missing_msg = sprintf(msg1, "px")) check_code(., "kpx <- c(1, cumprod(px[(age + 1):(length(px) - 1)]))", fixed = TRUE, append = FALSE, missing_msg = sprintf(msg1, "kpx")) check_code(., "kqx <- kpx * qx[(age + 1):length(qx)]", fixed = TRUE, append = FALSE, missing_msg = sprintf(msg1, "kqx")) check_code(., "discount_factors <- (1 + i) ^ - (1:length(kqx))", fixed = TRUE, append = FALSE, missing_msg = sprintf(msg1, "discount_factors")) check_code(., "benefits <- c(rep(0, u), rep(1, length(kpx) - u))", fixed = TRUE, append = FALSE, missing_msg = msg2) check_code(., "sum(benefits * discount_factors * kqx)", fixed = TRUE, append = FALSE, missing_msg = msg3) } ex() %>% { check_output_expr(., "deferred_life_insurance(20, 45, 0.02, life_table)", missing_msg = msg4, append = FALSE) check_error(.) } success_msg("¡Bien hecho! No debería sorprender que el EPV sea menor para el seguro de vida diferido en comparación con el seguro de vida entera.")

Renta vitalicia vs. seguro de vida

Valoración de productos de seguros de vida en R

Ejercicio interactivo práctico