Cicilan pinjaman KPR bulanan
Orang tua Cynthia menerima pinjaman sebesar 125.000 EUR dengan imbalan pembayaran bulanan tetap \(K\) selama 20 tahun seperti divisualisasikan pada grafik di bawah ini.
Dengan menggunakan variabel number_payments dan monthly_interest yang didefinisikan pada latihan sebelumnya, dan telah dimuat untuk Anda, kini giliran Anda menentukan nilai \(K\) berdasarkan prinsip kesetaraan aktuaria.
Latihan ini merupakan bagian dari kursus
Penilaian Produk Asuransi Jiwa di R
Instruksi latihan
- Definisikan faktor diskonto yang sesuai dari bulan pembayaran pertama hingga bulan pembayaran terakhir. Lakukan ini dengan mempangkatkan 1 ditambah
monthly_interestdengan pangkat negatif dari vektor 1 hingganumber_payments. - Buat variabel
paymentsyang merefleksikan pola pembayaran. Ini harus berupa vektor berisi angka satu dengan panjangnumber_payments. - Terakhir, hitung pembayaran bulanan \(K\) dengan membagi jumlah pinjaman KPR 125.000 dengan nilai kini dari pola pembayaran.
Latihan interaktif langsung praktik
Cobalah latihan ini dengan melengkapi kode contoh ini.
# Define the discount factors
discount_factors <- (___) ^ - (___)
# Define the payment pattern
payments <- rep(___, ___)
# Calculate the monthly loan payment K
K <- ___ / ___(___ * ___)
K