使用米尔斯比结果,让, 然后
但是,在 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
我究竟做错了什么?
使用米尔斯比结果,让, 然后
但是,在 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
我究竟做错了什么?
您的公式实现是错误的,因为,
如您所见,我们有一个额外的在分母中,产生:
dnorm
方法给你, 你需要将它与获得. 由于您的,这实际上可以通过再次减去第二项来完成,即:
这接近您的估计。