複数の引数 (2)
もう少し複雑な例を考えてみましょう。Introduction to R for Finance コースで学んだ「現在価値」を覚えていますか？もし忘れていても、こちらの動画で復習できます：here。考え方としては、将来受け取るお金を、一定の利率で割り引いて、今日の価値に換算するというものです。次の一般式は、そのために用いられます。
present_value <- cash_flow * (1 + i / 100) ^ -year
この計算をしてくれる関数があったら便利ですよね。例えば次の形です。
present_value <- pv(cash_flow, i, year)
この関数は、pv(1500, 5, 2) のように数値を渡しても動作しますし、同じ長さのベクトルを渡して、現在価値のベクトル全体を一度に計算できるようにしましょう！
percent_to_decimal() 関数は利用可能ですので、自由に使ってください。
この演習はコースの一部です
金融のための中級R
演習の手順
- 関数の空欄を埋めて、次を行うようにしてください。
- 必須の引数：
cash_flow、i、year - 割引の乗数を作成します：
(1 + i / 100)。iを小数に変換するためにpercent_to_decimal()関数を使います。 - 現在価値の計算を実行します。変数に保存しないでください。最後に評価された行が自動的に返されます。
- 必須の引数：
- いまから3年後に受け取る $1200 を、利率 7% で割り引いた現在価値を計算してください。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# Present value function
pv <- function(___, ___, ___) {
# Discount multiplier
mult <- 1 + ___(i)
# Present value calculation
___ * ___ ^ -___
}
# Calculate a present value
___