Cynthia가 100세까지 살 확률은 얼마나 될까요?
R 통계를 사랑하는 Cynthia는 1999년 생명표를 처음 탐색하는 것을 즐겼어요. 이제 R을 사용해 더 깊이 살펴보려 해요. Cynthia는 특히 100세(centenarian)가 될 확률에 관심이 있어요. 1999년 데이터에서 0세가 100세에 도달할 확률은 얼마일까요? 18세의 경우는요? 이런 확률을 어떻게 계산할 수 있을지 알아보세요. 그런 다음 $(k,\ _kp_{18})$를 시각화해 보세요.
다음 연습 문제에서는 벨기에 여성의 1999년 기간 생명표가 미리 로드되어 life_table 객체에 저장되어 있으며, lx 열이 여러분을 위해 추출되어 있어요.
이 연습은 강의의 일부입니다
R로 배우는 생명보험 상품 평가
연습 안내
lx를 사용해 0세가 100세(즉, 100세 도달)가 될 확률을 인덱스로 추출해 계산하세요.- 18세에 대해서도 같은 확률을 계산하세요.
- 18세가 18, 19, … 100세까지 생존할 확률을 계산하고 시각화하세요.
k를 0부터 82까지의 벡터로 정의하고,k를 사용해 확률을 계산하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Compute the probabilty for (0) to reach the age 100
___
# Compute the probabilty for (18) to reach the age 100
___
# Plot the survival probabilties for (18) up to age 100
k <- ___
plot(k, ___,
pch = 20,
xlab = "k",
ylab = expression(paste(""[k], "p"[18])),
main = "Survival probabilities for (18)")