[R] ファイナンス関連計算メモ

・対数収益率
diff(log(x))

diff(log(c(100,101,102,103)))
 0.009950331 0.009852296 0.009756175

# データフレームにreturn列を追加 (行数が減るので、先頭に0を追加する)
> head(returns)
        date close
1 2004-05-19 10967
2 2004-05-20 10862
3 2004-05-21 11070
> returns$return <- c(0, diff(log(returns$close)))
        date close       return
1 2004-05-19 10967  0.000000000
2 2004-05-20 10862 -0.009620304
3 2004-05-21 11070  0.018968287