なんとなーく頭でわかっているつもりになっていたものをちゃんと手を動かしてやっておきたい。 まず、インポータンスサンプリングについて一言で説明しておくと 「ある量の期待値を計算したいという状況において、その確率変数が大きな値を取る個所を重点的*…

以下のようにplot⇒par⇒plot⇒axis(4)と関数を順に書けばいいっぽい。 二個目に書いたplotの軸が第二軸としてaxis(4)により描画される。 x <- seq(0,13,0.01) plot(x, dexp(x), type = "l", ylab = "", col = 'red') par(new =T) plot(x, dnorm(x -10), type =…