Multiple arguments (2)
चलिए थोड़ा जटिल उदाहरण पर सोचते हैं। क्या आपको Introduction to R for Finance कोर्स से present value याद है? अगर नहीं, तो आप उसका वीडियो यहाँ देख सकते हैं। विचार यह है कि भविष्य में मिलने वाले पैसे को किसी निश्चित ब्याज दर पर डिस्काउंट किया जाए, ताकि उसकी आज की कीमत का आकलन हो सके। इसके लिए नीचे दिया गया सामान्य सूत्र उपयोग होता है:
present_value <- cash_flow * (1 + i / 100) ^ -year
क्या ऐसा फंक्शन होना अच्छा नहीं होगा जो यह कैलकुलेशन अपने-आप कर दे? उदाहरण के तौर पर कुछ इस तरह:
present_value <- pv(cash_flow, i, year)
यह फंक्शन तब काम करना चाहिए जब आप pv(1500, 5, 2) जैसे न्यूमेरिक पास करें, और यह बराबर लंबाई वाले वेक्टर पास करने पर एक साथ पूरी present value वेक्टर भी निकाल सके!
आपके उपयोग के लिए percent_to_decimal() फंक्शन उपलब्ध है.
यह अभ्यास पाठ्यक्रम का हिस्सा है
इंटरमीडिएट R फॉर फाइनेंस
अभ्यास निर्देश
- फंक्शन में खाली जगहें भरिए ताकि यह निम्न काम करे:
- आर्ग्युमेंट्स आवश्यक हों:
cash_flow,i,year - डिस्काउंट मल्टिप्लायर बनाए:
(1 + i / 100)।iको दशमलव में बदलने के लिएpercent_to_decimal()फंक्शन का उपयोग करें। - present value की गणना करे। इसे किसी वैरिएबल में स्टोर न करें। अंतिम निष्पादित पंक्ति होने के कारण यह अपने-आप रिटर्न हो जाएगी।
- आर्ग्युमेंट्स आवश्यक हों:
- $1200 की present value निकालिए, 7% ब्याज दर पर, जो 3 साल बाद प्राप्त होगी.
इंटरैक्टिव व्यावहारिक अभ्यास
इस अभ्यास को इस नमूना कोड को पूरा करके आज़माएँ।
# Present value function
pv <- function(___, ___, ___) {
# Discount multiplier
mult <- 1 + ___(i)
# Present value calculation
___ * ___ ^ -___
}
# Calculate a present value
___