코호트 생존확률

1999년에 18세인 사람이 23세까지 생존할 확률로 Cynthia가 앞서 계산한 값은 사실 기간 생존확률이었습니다. 시간에 따라 변하는 생존확률의 동학을 반영하도록 계산을 조정하도록 도와줄 수 있을까요? 곱셈법칙에 사용할 1년 생존확률은 생명표에서 대각선 방향으로 추출해야 합니다:

$$ _5p_{18, 1999} = p_{18, 1999} \cdot p_{19,2000} \cdot p_{20,2001} \cdot p_{21,2002} \cdot p_{22,2003} $$

이전 연습 문제에서 사용한 life_table 객체는 여전히 로드되어 있어요.

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

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

강의 보기

연습 안내

subset()을 사용해 $1999 - 18 = 1981$년에 태어난 여성의 코호트 생명표를 만들고 출력하세요.
life_table_1981의 qx 열로부터 코호트 1년 생존확률 px를 정의하세요.
(18)에 대한 5년 코호트 생존확률을 계산하세요.
같은 계산을 한 세기 전인 출생연도 1881에 대해 한 줄 명령으로 반복할 수 있나요? with()와 subset()을 모두 사용해야 합니다.

실습형 인터랙티브 연습

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

# Construct and print the cohort life table for birth year 1981
life_table_1981 <- ___(___, ___)
life_table_1981

# 1981 cohort one-year survival probabilities
px <- ___

# 1981 cohort survival probability that (18) survives 5 more years
___(px[(___):(___)])

# 1881 cohort survival probability that (18) survives 5 more years
___(___(life_table, year - age == ___), prod(1 - qx[(18 + 1):(22 + 1)]))

코드 편집 및 실행