정기 생명보험

Ethan은 보장 기간이 한정될 때 생명보험의 EPV가 어떻게 변하는지 궁금해합니다. 아래 그림을 참고하세요.

먼저 그는 이자율 $i = 2\%$에서 20세 가입자의 종신보험 EPV를 계산합니다. 이때 1999년 벨기에 여성에 대한 미리 불러온 life_table을 사용합니다.

이전 연습 문제에서 만든 whole_life_insurance() 함수를 바탕으로, Cynthia가 정기 생명보험 함수를 작성할 수 있도록 도와주시겠어요?

이 연습은 강의의 일부입니다

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

강의 보기

연습 안내

정기 생명보험의 EPV를 계산하는 함수 temporary_life_insurance()를 정의하세요. 반복적으로 쓰이는 인수 age, i, life_table 외에 보장 기간(년수)을 나타내는 추가 인수 n을 받습니다.
방금 정의한 temporary_life_insurance() 함수를 사용해, 20세 가입자의 보험에서 이자율 2%일 때 보장을 45년으로 제한하면 EPV가 어떻게 변하는지 계산해 보세요.

실습형 인터랙티브 연습

이 예제를 이 샘플 코드를 완성하여 풀어보세요.

# EPV of a whole life insurance for (20) at interest rate 2% using life_table
whole_life_insurance(20, 0.02, life_table)

# Function to compute the EPV of a temporary life insurance
temporary_life_insurance <- function(age, n, i, life_table) {
  qx <- life_table$qx
  px <- 1 - qx
  kpx <- c(1, cumprod(px[(___):(___)]))
  kqx <- kpx * qx[(___):(___)]
  discount_factors <- (1 + i) ^ - (1:length(kqx))
  ___(___ * ___)
}

# EPV of a temporary life insurance for (20) over a period of 45 years at interest rate 2% using life_table
temporary_life_insurance(___, ___, ___, ___)

코드 편집 및 실행