私は、対数正規分布をサンプリングすることにあるいくつかの数値実験をやっている、およびモーメントを推定しようとして 2つの方法で:
- X nのサンプル平均を見る
- 推定及びのサンプル手段を用いて、次いで対数正規分布のために、我々は持っているという事実を利用して。
質問は次のとおりです。
私は実験的に見つける、第2の方法が実行はるかに優れた、最初の1、私は固定のサンプル数を維持し、向上させるときこの事実のためにいくつかの簡単な説明があり、いくつかの要因によってT.?
Y軸の値である間、私は、x軸がTである図形を装着していの真の値を比較する(オレンジ行)、推定値に。方法1-青い点、方法2-緑の点。y軸は対数スケールです
編集:
以下は、1つのTの結果を出力する最小のMathematicaコードです。
ClearAll[n,numIterations,sigma,mu,totalTime,data,rmomentFromMuSigma,rmomentSample,rmomentSample]
(* Define variables *)
n=2; numIterations = 10^4; sigma = 0.5; mu=0.1; totalTime = 200;
(* Create log normal data*)
data=RandomVariate[LogNormalDistribution[mu*totalTime,sigma*Sqrt[totalTime]],numIterations];
(* the moment by theory:*)
rmomentTheory = Exp[(n*mu+(n*sigma)^2/2)*totalTime];
(*Calculate directly: *)
rmomentSample = Mean[data^n];
(*Calculate through estimated mu and sigma *)
muNumerical = Mean[Log[data]]; (*numerical \[Mu] (gaussian mean) *)
sigmaSqrNumerical = Mean[Log[data]^2]-(muNumerical)^2; (* numerical gaussian variance *)
rmomentFromMuSigma = Exp[ muNumerical*n + (n ^2sigmaSqrNumerical)/2];
(*output*)
Log@{rmomentTheory, rmomentSample,rmomentFromMuSigma}
出力:
(*Log of {analytic, sample mean of r^2, using mu and sigma} *)
{140., 91.8953, 137.519}
上記の2番目の結果はサンプル平均であり、他の2つの結果よりも低い