Suponha que X tenha uma distribuição normal com média μ=7325 e desvio padrão σ=552.
mu <- 7325
sigma <- 552
# Cálculo da probabilidade
prob_a <- pnorm(7338, mean = mu, sd = sigma) - pnorm(7296, mean = mu, sd = sigma)
prob_a
## [1] 0.0303438
A probabilidade P(7296<X<7338) é aproximadamente: 0.0303438
# Cálculo da probabilidade
prob_b <- pnorm(7352, mean = mu, sd = sigma) - pnorm(7300, mean = mu, sd = sigma)
prob_b
## [1] 0.03756757
A probabilidade P(7300<X<7352) é aproximadamente:0.03756757