別解:キャッシュフロー・ベクトルのコード
上の例では、cf <- c(3, 3, 3, 3, 3, 3, 3, 103) のように書いてキャッシュフローのベクトルを作成したかもしれません。
ただし、これは少し手間に感じられることがあります。代わりに、rep() コマンドを使ってキャッシュフローのベクトルを記述する方法があります。rep(x, y) と入力すると、x を y 回自動的に繰り返します。たとえば、rep(1, 4) は c(1, 1, 1, 1) と同じです。
この演習では、入力の組み合わせに基づいてキャッシュフローのベクトルを計算する、より汎用的な関数を作成します。入力は、クーポン利率の r、パー(元本)の p、満期までの年数 ttm です。そのために、rep() コマンドを活用します。
この演習はコースの一部です
Rで学ぶ債券の評価と分析
演習の手順
rep()と入力変数r、p、ttmを使って、別解のキャッシュフロー関数を作成し、alt_cfとして保存してください。alt_cfを使って、クーポン利率(r)3%(0.03)、パー値(p)$100、満期までの年数(ttm)8年のキャッシュフロー・ベクトルを生成してください。
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# Code cash flow function
alt_cf <- function(r, p, ttm) {
c(rep(p * r, ___ - 1), ___ * (1 + ___))
}
# Generate cf vector
alt_cf(r = ___, p = ___, ttm = ___)