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 đóX∼N(μ,σ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πe−12(x−μσ)2≠fX,μ,σ(x)=12πσe−12(x−μσ)2
σfX,μ,σ(x)
ϕ(x−μσ)=σfX,μ,σ(x)
dnormfX,μ,σ(x)σϕσ=21−0.7124=0.2876 : gần với ước tính của bạn.
1−0.2876−0.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 cookie và Chính sách bảo mật của chúng tôi.
Licensed under cc by-sa 3.0 with attribution required.