Tính giá trị kỳ vọng cắt ngắn bình thường


7

Sử dụng kết quả tỷ lệ xay, hãy để , sau đóXN(μ,σ2)

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

Tuy nhiên, khi tính toán bằng R. Tôi không thu được kết quả chính xác như

> 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

Tôi đang làm gì sai?

Câu trả lời:


15

Việc triển khai công thức của bạn sai vì, Như bạn thấy, chúng tôi có thêm trong mẫu số của , mang lại: cung cấp cho bạn , trong đó bạn cần nhân nó với để có được . Vì , điều này thực tế có thể được thực hiện thông qua việc trừ đi thuật ngữ thứ hai một lần nữa, đó là

ϕ(xμσ)=12πe12(xμσ)2fX,μ,σ(x)=12πσe12(xμσ)2
σfX,μ,σ(x)
ϕ(xμσ)=σfX,μ,σ(x)
dnormfX,μ,σ(x)σϕσ=210.7124=0.2876 : gần với ước tính của bạn.
10.28760.2876=0.4247

Khi sử dụng trang web của chúng tôi, bạn xác nhận rằng bạn đã đọc và hiểu Chính sách cookieChính sách bảo mật của chúng tôi.
Licensed under cc by-sa 3.0 with attribution required.