msg1 <- "Non modificare il codice per definire `%s` all'interno di `deferred_life_insurance()`." msg2 <- "Non hai definito correttamente `benefits` nella definizione di `deferred_life_insurance()`. Consulta il suggerimento se hai bisogno di un ripasso." msg3 <- "Hai definito correttamente il valore di ritorno di `deferred_life_insurance()`? È la `sum()` del prodotto elemento per elemento di `benefits`, `discount_factors` e `kqx`." msg4 <- "Hai chiamato `deferred_life_insurance()` con gli argomenti corretti per calcolare l'EPV di un'assicurazione sulla vita con un periodo di differimento di 45 anni? Usa età 20, tasso di interesse 2% e la `life_table` femminile del 1999 pre-caricata." ex() %>% check_output_expr("whole_life_insurance(20, 0.02, life_table)", missing_msg = "Non modificare la chiamata a `whole_life_insurance()` che abbiamo definito per te.", 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("Ben fatto! Non dovrebbe sorprendere che l'EPV sia inferiore per l'assicurazione sulla vita differita rispetto all'assicurazione sulla vita intera.")

Rendita vitalizia vs assicurazione sulla vita

Valutazione dei prodotti assicurativi sulla vita in R

esercizio interattivo pratico