Sử dụng kết quả tỷ lệ xay, hãy để , sau đó
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?