Suku bunga yang terus berubah

Cynthia ingin meminjam uang dari orang tuanya untuk membiayai perjalanan ke Australia. Ia membutuhkan 1000 EUR tahun ini dan 5000 EUR tahun depan. Ia ingin mengembalikan pinjaman tersebut dengan pembayaran tahunan \(K\) seperti ditunjukkan pada garis waktu di bawah.

Suku bunga dalam perjanjian pinjaman tidak tetap, tetapi berubah seiring waktu seperti pada garis waktu.

Suku bunga tahunan ini sudah ditentukan dalam vektor interest. Dapatkah Anda memverifikasi bahwa dengan ketentuan ini, pembayaran pinjaman tahunan Cynthia \(K\) seharusnya sebesar 816,86 EUR?

Latihan ini merupakan bagian dari kursus

Penilaian Produk Asuransi Jiwa di R

Lihat Kursus

Instruksi latihan

Hitung faktor diskonto tahunan sebagai 1 ditambah interest berpangkat minus 1.
Definisikan faktor diskonto dari setiap titik waktu di masa depan ke saat ini.
Tentukan vektor arus kas lengkap dengan nilai positif 1000 dan 5000 yang merepresentasikan jumlah pinjaman dan 10 nilai negatif -816.86 yang merepresentasikan pembayaran pinjaman.
Hitung nilai kini dari vektor arus kas. Jumlah ini harus (hingga pembulatan) sama dengan nol yang menunjukkan ekuivalensi aktuaria.

Latihan interaktif langsung praktik

Cobalah latihan ini dengan melengkapi kode contoh ini.

# Interest rates
interest <- c(rep(0.05, 3), rep(0.06, 3), rep(0.07, 5))

# Define the yearly discount factors
yearly_discount_factors <- (___) ^ ( - 1)

# Define the discount factors
discount_factors <- c(1 , ___(___))

# Define the cash flow vector
cash_flow <- c(___, ___, rep(___, ___))

# Calculate the PV
PV <- ___(___ * ___)
PV

Edit dan Jalankan Kode