Di mana saja, kapan saja?

Merefleksikan pola pengeluarannya, Cynthia bertanya-tanya berapa banyak uang yang akan ia kumpulkan jika menaruh uangnya di rekening bank alih-alih membelanjakannya untuk unduhan dan tiket konser. Untuk itu, Anda akan menghitung nilai arus kas pada suatu waktu di masa depan, menggunakan fungsi diskonto yang sesuai.

Pola pengeluaran Cynthia ditampilkan di atas. Vektor cash_flows, yang Anda definisikan pada latihan pertama, telah dimuat sebelumnya ke dalam workspace Anda. Suku bunga masih 2%.

Latihan ini merupakan bagian dari kursus

Penilaian Produk Asuransi Jiwa di R

Lihat Kursus

Instruksi latihan

Definisikan fungsi discount() yang menghitung nilai pada waktu \(s\) dari 1 EUR yang dibayarkan pada waktu \(t\).
Gunakan discount() untuk menghitung nilai kini dari cash_flows pada waktu 0 hingga 5. Hasilnya harus sama dengan hasil Anda sebelumnya, yaitu 444,93 EUR.
Cetak nilai vektor arus kas ketika Cynthia berusia 18 tahun dalam 6 tahun dari sekarang.
Hitung nilai akumulasi vektor arus kas pada waktu 6 dengan cara yang berbeda. Kali ini konversikan present_value pada waktu 0 menjadi nilai pada waktu 6.

Latihan interaktif langsung praktik

Cobalah latihan ini dengan melengkapi kode contoh ini.

# Define the discount function v
discount <- function(s, t, i = 0.02) {
  (1 + ___) ^ - (___ - ___)
}

# Calculate the present value
present_value <- sum(cash_flows * discount(___, ___))
present_value

# Calculate the value at time 6
sum(cash_flows * discount(___, ___))

# Calculate the value at time 6, starting from present_value
present_value * discount(___, ___)

Edit dan Jalankan Kode