msg1 <- "Kodun içinde `%s` tanımlamak için `deferred_life_insurance()` fonksiyonunu değiştirmeyin." msg2 <- "`deferred_life_insurance()` fonksiyonunun tanımında `benefits`'i doğru tanımlamadınız. Bir hatırlatmaya ihtiyacınız varsa ipucuna bakın." msg3 <- "`deferred_life_insurance()` fonksiyonunun dönüş değerini doğru tanımladınız mı? Bu, `benefits`, `discount_factors` ve `kqx`'in eleman bazında çarpımının `sum()` fonksiyonudur." msg4 <- "`deferred_life_insurance()` fonksiyonunu 45 yıllık bir erteleme süresi olan bir hayat sigortasının EPV'sini hesaplamak için doğru argümanlarla çağırdınız mı? 20 yaş, %2 faiz oranı ve önceden yüklenmiş 1999 kadın `life_table`'ını kullanın." ex() %>% check_output_expr("whole_life_insurance(20, 0.02, life_table)", missing_msg = "Sizin için tanımladığımız `whole_life_insurance()` çağrısını değiştirmeyin.", 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("Tebrikler! Ertelenmiş hayat sigortası için EPV'nin, tüm hayat sigortasına göre daha düşük olması şaşırtıcı olmamalıdır.")

Yaşam gelirleri vs hayat sigortası

R ile Hayat Sigortası Ürünlerinin Değerlemesi

Uygulamalı etkileşimli egzersiz