Birden çok argüman (2)
Daha karmaşık bir örnek düşünelim. Introduction to R for Finance kursundan bugünkü değer konusunu hatırlıyor musun? Hatırlamıyorsan, bununla ilgili videoyu buradan tekrar izleyebilirsin. Amaç, gelecekte alacağın parayı belirli bir faiz oranıyla iskonto edip bugünün parası cinsinden değerini bulmak. Bunun için aşağıdaki genel formül kullanılıyor:
present_value <- cash_flow * (1 + i / 100) ^ -year
Bu hesabı senin yerine yapan bir fonksiyon olsa güzel olmaz mıydı? Mesela şöyle:
present_value <- pv(cash_flow, i, year)
Bu fonksiyon hem pv(1500, 5, 2) gibi sayısal değerler verdiğinde çalışmalı, hem de eşit uzunlukta vektörler verdiğinde tüm bir bugünkü değer vektörünü tek seferde hesaplayabilmeli!
Kullanman için percent_to_decimal() fonksiyonu hazır.
Bu egzersiz, kursun bir parçasıdır
Finans için Orta Düzey R
Egzersiz talimatları
- Fonksiyondaki boşlukları doldur ve şunları yapsın:
- Zorunlu argümanlar:
cash_flow,i,year - İskonto çarpanını oluştur:
(1 + i / 100).ideğerini ondalığa çevirmek içinpercent_to_decimal()fonksiyonunu kullan. - Bugünkü değer hesabını yap. Bunu bir değişkende saklama. Son yürütülen satır olacağı için otomatik olarak dönecek.
- Zorunlu argümanlar:
- 3 yıl sonra alınacak, faiz oranı %7 olan 1200 $'ın bugünkü değerini hesapla.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
# Present value function
pv <- function(___, ___, ___) {
# Discount multiplier
mult <- 1 + ___(i)
# Present value calculation
___ * ___ ^ -___
}
# Calculate a present value
___