Rだと誘導型モデルを使った信用リスクのある場合の価格評価も楽にやれるんじゃないかなと常々思ってはいたものの、手づかずだったので、実際にやってみましたというお話です。ここでは割引債の価格評価を例にしてますが、もちろん割引債に限った話ではありま…

こんな書き方でイケた。 x <- matrix(1:9,3,3) apply(x, 1, function(y){evalq(i, parent.frame())}) 実行すると > x <- matrix(1:9,3,3) > apply(x, 2, function(y){evalq(i, parent.frame())}) [1] 1 2 3 となって現在のループ番号がちゃんと引ける。 pare…