매월 주택담보대출 상환액
Cynthia의 부모님은 향후 20년 동안 매월 고정 상환액 $K$를 지급하는 조건으로 125,000 EUR의 대출을 받았습니다. 아래 그래프에 그 흐름이 나타나 있어요.
이전 연습 문제에서 정의되어 있으며, 지금은 미리 로드되어 있는 number_payments와 monthly_interest 변수를 사용해서, 보험수리적 등가 원칙에 따라 $K$의 값을 구해 보세요.
이 연습은 강의의 일부입니다
R로 배우는 생명보험 상품 평가
연습 안내
- 첫 번째 상환 월부터 마지막 상환 월까지에 해당하는 할인인자를 정의하세요.
monthly_interest에 1을 더한 값을, 1부터number_payments까지의 벡터에 마이너스 부호를 붙인 지수로 거듭제곱하면 됩니다. - 지급 패턴을 나타내는 변수
payments를 만드세요. 길이가number_payments인 1의 벡터여야 합니다. - 마지막으로, 지급 패턴의 현재가치로 125,000의 대출 원금을 나누어 월 상환액 $K$를 계산하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Define the discount factors
discount_factors <- (___) ^ - (___)
# Define the payment pattern
payments <- rep(___, ___)
# Calculate the monthly loan payment K
K <- ___ / ___(___ * ___)
K