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