나이에 따른 기대여명 그리기

Cynthia는 기대여명을 나이의 함수로 시각화해 보려고 합니다. 이런 그래프를 어떻게 만들면 좋을지 Cynthia에게 안내해 주시겠어요?

R에서 효율적으로 처리하려면, 먼저 주어진 나이와 생명표에 대해 절단 기대여명을 계산하는 함수를 작성하세요. 그런 다음 이 함수를 생명표의 모든 나이에 적용하면 됩니다. sapply()(docs)를 사용하면 출력이 가능한 한 가장 기본적인 데이터 구조로 단순화됩니다.

미리 로드된 life_table 객체에는 벨기에 여성의 1999년 기간 생명표가 들어 있습니다.

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

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

강의 보기

연습 안내

함수 curtate_future_lifetime()을(를) 완성하세요.
life_table에서 age 열을 추출해 벡터 ages를 만드세요.
sapply()에 ages, curtate_future_lifetime, life_table을 인수로 전달해 생명표의 모든 나이에 대한 절단 기대여명을 계산하세요.
future_lifetimes를 ages에 대해 플롯하세요.

실습형 인터랙티브 연습

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

# Function to compute the curtate expected future lifetime for a given age and life table
curtate_future_lifetime <- function(age, life_table) {
  px <- ___
  kpx <- ___(px[(___):length(px)])
  ___(___)
}

# Vector of ages
ages <- ___

# Curtate future lifetimes for all ages
future_lifetimes <- ___(___, ___, ___)

# Future lifetime by age
plot(___, ___, type = 'l', lwd = 2, col = "green", xlab = "Age x", ylab = "Future lifetime", main = "Future lifetime by age")

코드 편집 및 실행