msg1 <- "Ändra inte koden för att definiera `%s` inuti `deferred_life_insurance()`." msg2 <- "Du definierade inte `benefits` korrekt i definitionen av `deferred_life_insurance()`. Se ledtråden om du behöver en påminnelse." msg3 <- "Definierade du returvärdet för `deferred_life_insurance()` korrekt? Det är `sum()` av elementvis produkt av `benefits`, `discount_factors` och `kqx`." msg4 <- "Anropade du `deferred_life_insurance()` med rätt argument för att beräkna EPV för en livförsäkring med en uppskovsperiod på 45 år? Använd ålder 20, ränta 2% och den förinstallerade 1999 kvinnliga `life_table`." ex() %>% check_output_expr("whole_life_insurance(20, 0.02, life_table)", missing_msg = "Ändra inte anropet till `whole_life_insurance()` som vi definierade åt dig.", 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("Bra gjort! Det bör inte komma som någon överraskning att EPV är lägre för den uppskjutna livförsäkringen jämfört med hela livförsäkringen.")

Livränta kontra livförsäkring

Värdering av livförsäkringsprodukter i R

Interaktiv övning med praktiskt arbete