Kode vektor arus kas alternatif
Pada contoh di atas, Anda mungkin telah menuliskan vektor arus kas dengan mengetik cf <- c(3, 3, 3, 3, 3, 3, 3, 103).
Namun, cara tersebut bisa terasa cukup melelahkan. Alternatifnya, Anda dapat membuat vektor arus kas menggunakan perintah rep(). Mengetik rep(x, y) akan otomatis mengulang x sebanyak y kali. Sebagai contoh, rep(1, 4) setara dengan mengetik c(1, 1, 1, 1).
Dalam latihan ini, Anda akan membangun fungsi yang lebih umum untuk menghitung vektor arus kas berdasarkan serangkaian masukan: r untuk tingkat kupon, p untuk nilai pari, dan ttm untuk waktu jatuh tempo. Untuk melakukannya, Anda akan memanfaatkan perintah rep().
Latihan ini adalah bagian dari kursus
Penilaian dan Analisis Obligasi di R
Petunjuk latihan
- Tulis fungsi arus kas alternatif menggunakan
rep()dan variabel masukanr,p, danttm. Simpan fungsi baru ini sebagaialt_cf. - Gunakan
alt_cfuntuk menghasilkan vektor arus kas dengan tingkat kupon (r) 3% (0.03), nilai pari (p) $100, dan waktu jatuh tempo (ttm) 8 tahun.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# Code cash flow function
alt_cf <- function(r, p, ttm) {
c(rep(p * r, ___ - 1), ___ * (1 + ___))
}
# Generate cf vector
alt_cf(r = ___, p = ___, ttm = ___)