住宅ローンの毎月返済額
シンシアの両親は125,000ユーロの融資を受け、今後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