打ち切られた法線の期待値の計算


7

ミル比の結果を使用して、とすると、XN(μ,σ2)

E(X|X<α)=μσϕ(aμσ)Φ(aμσ)

ただし、Rで計算すると、正しい結果が得られません。

> mu <- 1
> sigma <- 2 
> a <- 3 
> x <- rnorm(1000000, mu, sigma) 
> x <- x[x < a] 
> mean(x)
[1] 0.4254786
> 
> mu -  sigma * dnorm(a, mu, sigma) / pnorm(a, mu, sigma)
[1] 0.7124

何が悪いのですか?

回答:


15

ため、数式の実装は間違っています ご覧のとおり、追加のの分母で、収率: メソッドはを提供します。ここでを乗算してを取得する必要があります。あなた以来、これは実用的である、再び第二項を差し引くを介して行うことができます

ϕ(xμσ)=12πe12(xμσ)2fX,μ,σ(x)=12πσe12(xμσ)2
σfX,μ,σ(x)
ϕ(xμσ)=σfX,μ,σ(x)
dnormfX,μ,σ(x)σϕσ=210.7124=0.2876: これは見積もりに近い値です。
10.28760.2876=0.4247

弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.