prob = dbinom(6, size = 20, prob = 0.3)
prob[1] 0.191639Atividade RGV 02
Modelo Binomial:
- Um agricultor testa a eficácia de um novo pesticida em 20 plantas. Sabe-se que, sem o pesticida, a probabilidade de uma planta ser infectada é de 30%. Ele aplica o pesticida e verifica quantas plantas foram infectadas após o tratamento.
- Suponha que, após o tratamento, 6 das 20 plantas foram infectadas. Calcule a probabilidade teórica de isso acontecer se o pesticida não tivesse efeito (p = 0,3).
[1] 19.1639
A probabilidade de exatamente 6 plantas serem infectadas em um total de 20, sob essas condições, é de aproximadamente 19,16%.
Experimento Poisson
- Um biólogo está estudando o número de bactérias por mL em uma amostra de água de um lago. Historicamente, a média é de 5 bactérias por mL. Ele coletou 50 amostras e registrou a contagem de bactérias em cada uma.
- Calcule a probabilidade de encontrar mais de 7 bactérias/mL em uma amostra.
1 - ppois(7, lambda = 5)[1] 0.1333717[1] 13.33717
A probabilidade de encontrar mais de 7 bactérias por mL em uma amostra de água, considerando uma distribuição média histórica de 5 bactérias/mL, é de aproximadamente 13,34%.
Carregamento de Pacotes:
── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr 1.1.4 ✔ readr 2.1.5
✔ forcats 1.0.0 ✔ stringr 1.5.1
✔ ggplot2 3.5.1 ✔ tibble 3.2.1
✔ lubridate 1.9.4 ✔ tidyr 1.3.1
✔ purrr 1.0.4
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag() masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors