msg1 <- "함수 `deferred_life_insurance()` 내에서 `%s`를 정의하도록 코드를 수정하지 마십시오." msg2 <- "`deferred_life_insurance()`의 정의에서 `benefits`를 올바르게 정의하지 않았습니다. 힌트를 참고하여 복습이 필요하면 참조하십시오." msg3 <- "`deferred_life_insurance()`의 반환 값을 올바르게 정의했습니까? 이는 `benefits`, `discount_factors` 및 `kqx`의 요소별 곱의 `sum()`입니다." msg4 <- "45년의 유예 기간이 있는 생명 보험의 EPV를 계산하기 위해 올바른 인수로 `deferred_life_insurance()`를 호출했습니까? 나이 20세, 이자율 2% 및 사전 로드된 1999년 여성 `life_table`을 사용하십시오." ex() %>% check_output_expr("whole_life_insurance(20, 0.02, life_table)", missing_msg = "우리가 정의한 `whole_life_insurance()` 호출을 수정하지 마십시오.", 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("잘하셨습니다! 유예된 생명 보험의 EPV가 전체 생명 보험에 비해 낮다는 것은 놀라운 일이 아닙니다.")

종신연금 vs 종신보험

R로 배우는 생명보험 상품 평가

실습형 인터랙티브 연습문제