按月偿还的按揭贷款
Cynthia 的父母获得了一笔 125,000 EUR 的贷款，并在未来 20 年内按月等额支付 $K$，如下图所示。
使用上一个练习中定义并已为您预加载的变量 number_payments 和 monthly_interest，请基于精算等价原理计算 \(K\) 的数值。
本练习是课程的一部分
用 R 评估人寿保险产品
练习说明
- 定义从首个还款月份到最后一个还款月份对应的贴现因子。做法是将 1 加上
monthly_interest，再将其提升到指数为负的向量 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