Exercícios Resolvidos - R e Excel
Exercícios Resolvidos - R e Excel
Exercícios Resolvidos - R e Excel
Julienne Borges
Exercícios Resolvidos
Utilizando o R e o Microsoft Excel
Vamos relembrar as funções?
Distribuição Binomial – Utilizando o Excel
onde:
size = n
prob= p
lower.tail=TRUE → Fornece a probabilidade acumulada → P(X<x)
lower.tail=FALSE → Fornece a probabilidade acima de x → P(X>x)
log=FALSE → Fornece as probabilidades numéricas e não em escala logarítmica.
Distribuição Binomial - Exemplo
Suponha que 5% de todas as peças que saiam de uma linha de produção sejam
defeituosas. Se 10 dessas peças forem escolhidas e inspecionadas, pede-se:
Dessa forma, podemos dizer que o modelo binomial se adapta bem à situação proposta no
exemplo, ou seja, X B(10; 0,05).
a) Identifique a variável aleatória estudada. Quais valores ela pode assumir?
X: número de peças defeituosas produzidas
x= 0, 1, 2,..., 10.
7
Utilizando o R:
dbinom(7,10,0.05,log=FALSE)
Resultado:
8.037891e-08
c) Qual é a probabilidade de obtermos no máximo 2 peças defeituosas?
𝑃 𝑋 ≤ 2 = 𝑃 𝑋 = 0 + 𝑃 𝑋 = 1 + 𝑃 𝑋 = 2 = 0,9884
10
P ( X = 0) = .0,050.(1 − 0,05) = 0,5987
10−0
0
10
P( X = 1) = .0,051.(1 − 0,05) = 0,3151
10−1
1
10
P ( X = 2) = .0,052.(1 − 0,05) = 0,0746
10− 2
2
Observe que a probabilidade diminui à medida que nos afastamos da
média!
Utilizando o Microsoft Excel:
=DISTR.BINOM(2;10;0,05;VERDADEIRO)
Resultado:
0,988496443
Utilizando o R:
pbinom(2,10,0.05,lower.tail=TRUE,log = FALSE)
Resultado:
0.9884964
Agora é com você!
c) Qual é a probabilidade de obtermos mais de 3 peças defeituosas?
Agora é com você!
P(X>3) = 1-P(X<3)
Utilizando o R:
pbinom(3,10,0.05,lower.tail=FALSE,log = FALSE) → 0.001028498
Distribuição Binomial – Exercício 1
Cada amostra de ar tem 10% de chance de conter uma certa molécula rara. Considere
que as amostras sejam independentes com relação à presença da molécula rara.
Encontre a probabilidade de que em 18 amostras:
a) Exatamente 2 contenham a molécula rara.
b) No mínimo 4 amostras contenham a molécula rara.
c) De 3 a 7 amostras contenham a molécula rara.
d) O número médio e a variância de moléculas raras.
Utilizando o R:
pbinom(3,18,0.1,lower.tail=FALSE,log = FALSE) → 0.09819684
Distribuição Binomial – Exercício 1 - Resolução
Média:
E(X) = np = 18x0,1=1,8
Variância:
2 = npq = 18x0,1x0,9 = 1,62
→ E se fosse pedido o desvio padrão? 𝜎 = 𝜎 2 = 1,62 = 1,272792
Vamos relembrar as funções?
Distribuição Poisson – Utilizando o Excel
e −5 .50
P( X = 0) = = 0,0067
0!
Utilizando o Excel:
=DIST.POISSON(0;5;FALSO)
Resultado: 0,006737947
Utilizando o R:
dpois(0,5,log=FALSE)
Resultado: 0.006737947
c) Calcule a probabilidade de que, durante um intervalo de um minuto, a central
telefônica receba, no máximo, uma chamada.
. 𝑃 𝑋 ≤ 1 = 𝑃 𝑋 = 0 + 𝑃 𝑋 = 1 = 0,0067 + 0,0337 = 0,0404
e −5 .51
P( X = 1) = = 0,0337
1!
Utilizando o Excel:
=DIST.POISSON(1;5;VERDADEIRO)
Resultado: 0,040427682
Utilizando o R:
ppois(1,5, lower.tail = TRUE, log.p = FALSE)
Resultado: 0.04042768
d) Calcule a probabilidade de que, durante um intervalo de um minuto, a central
telefônica receba mais de duas chamadas.
.
P(X>2)=1-P(X≤2)=1-P(X=0)+P(X=1)+P(X=2)=1-0,1246=0,8754
e −5 .52
P( X = 2) = = 0,0842
2!
Utilizando o Excel:
=DIST.POISSON(2;5;VERDADEIRO)
Resultado: 0,124652019
Lembre-se de calcular 1- 0,124652019=0,875347981
Utilizando o R:
ppois(2,5, lower.tail = FALSE, log.p = FALSE)
Resultado: 0.875348
e) Durante um intervalo de quatro minutos, qual a probabilidade de que ocorram
15 chamadas?
e −20 .2015
P( X = 15) = = 0,0516
15!
Utilizando o Excel: Utilizando o R:
=DIST.POISSON(15;20;FALSO) dpois(15,20,log = FALSE)
Resultado: 0,051648854 Resultado: 0.05164885
Distribuição Poisson – Exercício 2
Distribuição exponencial
pexp(x, rate = alfa, lower.tail = TRUE, log.p
para o cálculo de
P(0<X<x)
= FALSE)
onde:
alfa= parâmetro da distribuição exponencial
lower.tail=TRUE → Fornece a probabilidade acumulada → P(X<x)
lower.tail=FALSE → Fornece a probabilidade acima de x → P(X>x)
log=FALSE → Fornece as probabilidades numéricas e não em escala logarítmica.
Distribuição Exponencial – Exemplo
Como a distribuição exponencial não tem um limite superior mas, tem o zero
como limite inferior, para realizar o cálculo de que a lâmpada dure pelo menos
4000 horas iremos utilizar o complementar, ou seja,
− 8000
1
−
1
4000
P( X 4000) = 1 − P(0 X 4000) = 1 − e
0
− e 8000 = 0,6065
Utilizando o Microsoft Excel: Utilizando o R:
=DISTR.EXPON(4000;1/8000;VERDADEIRO) pexp(4000, rate = 1/8000, lower.tail = FALSE,
Resultado: 0,393469 log.p = FALSE)
Calculando 1-0,393469 = 0,606531 Resultado: 0.6065307
Distribuição Exponencial – Exemplo
c) Sabe-se que o fabricante garante a reposição de uma lâmpada caso ela dure
menos de 50 horas. Determine a probabilidade de haver troca por defeito na
fabricação.
1 1
− −
P( X 50) = P(0 X 50) = e
0 50
8000
−e 8000
= 0,0062
onde:
m= média
s= desvio padrão
lower.tail=TRUE → Fornece a probabilidade acumulada → P(X<x)
lower.tail=FALSE → Fornece a probabilidade acima de x → P(X>x)
log=FALSE → Fornece as probabilidades numéricas e não em escala logarítmica.
Distribuição Normal – Exemplo
Forneço a
probabilidade
acumulada até o
valor de x que eu
desejo encontrar! Quero encontrar
esse valor.
Distribuição Normal – Utilizando o R
Density
possível para a aprovação de um candidato? 0,03
0,02
0,95
Utilizando o Excel: 0,01
0,05
=INV.NORM.N(0,95;75;6,5) 0,00
75 85,69
X
Resultado: 85,69155
Distribuição Normal - Exemplo
Distribution Plot
Normal; Mean=75; StDev=6,5
Utilizando o R:
0,06
> qnorm(0.05, mean = 75, sd = 6.5, lower.tail
0,05
= FALSE, log.p = FALSE)
[1] 85.69155 0,04
Density
0,03
0,02
0,95
0,01
0,05
0,00
75 85,69
X
Distribuição Normal - Exemplo
Abaixo de que nota encontram-se 10% dos
Distribution Plot
candidatos com menor pontuação? Normal; Mean=75; StDev=6,5
=INV.NORM.N(0,1;75;6,5) 0,05
Resultado: 66,6699
0,04
Density
Utilizando o R: 0,03
=INV.NORM.N(0,75;75;6,5) 0,05
Resultado: 79,3842
0,04
Density
Utilizando o R: 0,03
[1] 79.38418
0,00
75 79,38
25% dos candidatos obtiveram notas acima X
de 79,4 pontos.
Distribuição Normal - Exemplo
Abaixo de que nota encontram-se 40% dos
Distribution Plot
candidatos? Normal; Mean=75; StDev=6,5
=INV.NORM.N(0,4;75;6,5) 0,05
Resultado: 73,3532
0,04
Density
Utilizando o R: 0,03
[1] 73.35324
0,00
73,35
40% dos candidatos obtiveram notas abaixo X
de 79,35 pontos.