Distribuição Normal X
Dados da Distribuição
mean_x <- 500
sd_x <- 300
a) Pr(X < 500)
prob_a <- pnorm(500, mean = 500, sd = 300)
prob_a
## [1] 0.5
b) Pr(400 < X < 710)
prob_b <- pnorm(710, mean = 500, sd = 300) - pnorm(400, mean = 500, sd = 300)
prob_b
## [1] 0.388595
c) Pr(330 < X < 450)
prob_c <- pnorm(450, mean = 500, sd = 300) - pnorm(330, mean = 500, sd = 300)
prob_c
## [1] 0.1483458
Distribuição Normal Y
Dados da Distribuição
mean_y <- 100
sd_y <- 20
a) Pr(50 < Y < 70)
prob_a <- pnorm(70, mean = 100, sd = 20) - pnorm(50, mean = 100, sd = 20)
prob_a
## [1] 0.06059754
b) Pr(105 < Y < 110)
prob_b <- pnorm(110, mean = 100, sd = 20) - pnorm(105, mean = 100, sd = 20)
prob_b
## [1] 0.09275614
c) Pr(Y > 75)
prob_c <- 1 - pnorm(75, mean = 100, sd = 20)
prob_c
## [1] 0.8943502