加重平均 (3)

リサイクリング（再利用）の例を見てみましょう。Microsoft と Sony の株式リターンに同じ重みを付けたいとします。つまり、Microsoft に 50%、Sony に 50% 投資するイメージです。

ret <- c(7, 9)

weight <- .5

ret_X_weight <- ret * weight

ret_X_weight

[1] 3.5 4.5

ret は長さ 2 のベクトルで、weight は長さ 1 のベクトルです。R は weight の .5 を 2 回再利用して ret と同じ長さにそろえ、その後に要素ごとの計算を行います。

3 銘柄のリターンを含む名前付きベクトル ret がワークスペースにあります。
3 銘柄のリターンを確認するために ret を表示してください。
weight に 1/3 の値を代入します。各銘柄に与える重みです。
ret と weight を掛け算して ret_X_weight を作成します。R が weight をリサイクルする様子に注目してください。
sum() を使って ret_X_weight を合計し、等加重の portf_ret を作成します。
最後のコード行を実行して、長さ 3 のベクトルと長さ 2 のベクトルの掛け算を試してください。R は長さ 2 のベクトルの1番目の値を再利用しますが、警告に注意してください！