msg1 <- "Jangan mengubah kode untuk mendefinisikan `%s` di dalam `deferred_life_insurance()`." msg2 <- "Anda tidak mendefinisikan `benefits` dengan benar dalam definisi `deferred_life_insurance()`. Lihat petunjuk jika Anda memerlukan penyegaran." msg3 <- "Apakah Anda telah mendefinisikan nilai pengembalian dari `deferred_life_insurance()` dengan benar? Ini adalah `sum()` dari hasil perkalian elemen dari `benefits`, `discount_factors`, dan `kqx`." msg4 <- "Apakah Anda memanggil `deferred_life_insurance()` dengan argumen yang benar untuk menghitung EPV dari asuransi jiwa dengan periode penangguhan 45 tahun? Gunakan usia 20, tingkat bunga 2% dan `life_table` wanita tahun 1999 yang telah dimuat sebelumnya." ex() %>% check_output_expr("whole_life_insurance(20, 0.02, life_table)", missing_msg = "Jangan mengubah panggilan ke `whole_life_insurance()` yang telah kami definisikan untuk Anda.", 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("Kerja bagus! Tidak mengherankan bahwa EPV lebih rendah untuk asuransi jiwa yang ditangguhkan dibandingkan dengan asuransi jiwa seumur hidup.")

Anuitas hidup vs asuransi jiwa

Penilaian Produk Asuransi Jiwa di R

Latihan interaktif langsung