class: center, middle, inverse, title-slide .title[ # Trabalho 3 – Laboratório de Estatística Aplicada
] .subtitle[ ## É possível fazer seleção e melhoramento genético em abelhas? ] .author[ ### Márcio Roger Piagio
] .date[ ### 20 de setembro de 2022 ] --- class: inverse, center, middle # <center>**Objetivos **</center> <br> ### **<center>Propor um modelo de regressão para constatar a melhor produção de mel (N° de potes de mel ao mês) entre as 16 colônias de abelhas da espécie Scaptotrigona bipuctata e posteriormente selecionar características em relação as colônias considerando o aperfeiçoamento da produção de mel. <center>** --- # <center>**Descrição dos dados**</center> > **16 Colônias de abelhas da espécie Scaptotrigona bipuctata** > **Os dados foram coletados todos os meses em todas as colônias no ano de 2016** ## <center> As Características analisadas foram:</center> > **Comp. Canudo (cm) = Comprimento do canudo entrada das colônias;** > **Diâm. Canudo (cm) = Diâmetro do canudo entrada das colônias;** > **N° potes Mel = Número de Potes de mel;** > **N° discos = Número dos discos de crias;** > **Tam. Discos (cm) = Média do diâmetro dos discos de crias;** > **Peso (Kg) = Peso da colônia, já descontado o peso das caixas;** > **Est. Pop. = Estimativa do número de indivíduos nas colônias de abelhas.** --- # <center>**Descrição dos dados**</center> .pull-left[ <center> <img src="index_files/figure-html/unnamed-chunk-2-1.png" width="100%" /> ] .pull-right[ <center> <img src="index_files/figure-html/unnamed-chunk-3-1.png" width="100%" /> ] --- class: inverse, center, middle # Análise descritiva --- # <center>**Análise descritiva**</center>
Superdispersão --- # <center>**Análise descritiva**</center> .pull-left[ **<center>Histograma da distribuição dos números de potes de mel</center>** ![](index_files/figure-html/unnamed-chunk-5-1.png)<!-- --> ] .pull-right[ **<center>Números de potes de mel</center>** ![](index_files/figure-html/unnamed-chunk-6-1.png)<!-- --> ] --- # <center>**Análise descritiva**</center> .pull-left[ **<center>Boxplot das colônias por N° potes de Mel</center>**
] .pull-rigth[ **<center>Frequência do N° potes Mel por côlonia</center>**
] --- # <center>**Análise descritiva**</center> .pull-left[ **<center>Boxplot dos meses por N° potes de Mel</center>**
] .pull-rigth[ **<center>Frequência do N° potes Mel</center>**
] --- # <center>**Análise descritiva**</center> **<center>Frequência do N° potes Mel por mês e côlonia</center>**
--- # <center>**Análise descritiva**</center> **<center>Frequência do Est. Pop. por mês e côlonia</center>**
--- # <center>**Análise descritiva**</center> <img src="index_files/figure-html/unnamed-chunk-13-1.png" style="display: block; margin: auto;" /> --- class: inverse, center, middle # **Modelos Propostos** --- # <center>**Modelos Para Dados de Contagem**</center> ### <center>Modelo Poisson com função de ligação log "log-linear"<center> ### <center>Modelo Binomial Negativa com função de ligação log<center> ##**<center>Modelo de Mistura<center>** ### <center> Poisson com Binomial<center> ### <center>Binomial Negativa com Binomial<center> ##**<center>Modelo Truncado<center>** ### <center> Poisson com Binomial<center> ### <center>Binomial Negativa com Binomial<center> Equidispersão: `\(\mathbb{E}(y_i)=\mathbb{V}(y_i)\)` Superdispersão: --- # <center>**Modelos Para Dados de Contagem**</center> .pull-left[ **<center>Zero alterado (Truncado)</center>** ![](index_files/figure-html/unnamed-chunk-14-1.png)<!-- --> ] .pull-rigth[ **<center>Zero inflado (mistura)</center>** ![](index_files/figure-html/unnamed-chunk-15-1.png)<!-- --> ] --- # <center>**Selecionado Modelo**</center>
--- # <center>**Análise de resíduos**</center> <img src="index_files/figure-html/unnamed-chunk-17-1.png" style="display: block; margin: auto;" /> --- # <center>**Análise de resíduos**</center> .pull-rigth[ ``` ## Half-normal plot with simulated envelope generated assuming the residuals are ## normally distributed under the null hypothesis. ``` ![](index_files/figure-html/unnamed-chunk-18-1.png)<!-- --> ] --- # <center>**Compreensão do modelo**</center>
--- class: inverse, center, middle # **Conclusão** **A maior taxa de produção de mel foi da colônia 9 que tem uma taxa de 24% maior do que a colônia 2, que por sua vez teve a segunda melhor produção de mel. Em relação ao comprimento do canudo, temos que para cada acréscimo de centímetros diminui-se uma taxa de 2% da produção de mel; o diâmetro do canudo aumenta 4% na taxa de mel para cada centímetro; e o número de disco tem um acréscimo de 6% na taxa de produção de mel a cada unidade. Já o tamanho do disco tem uma taxa de 8% de acréscimo para cada centímetro. Por fim, o peso da colônia teve uma taxa de 40%. ** --- class: inverse, middle # <center>**Conclusão**</center> * **A maior taxa de produção de mel foi da colônia 9 que tem uma taxa de 24% maior do que a colônia 2, que por sua vez teve a segunda melhor produção de mel.** * **Para cada acréscimo do centímetros do comprimento do canudo diminui-se uma taxa de 2% da produção de mel.** * **O diâmetro do canudo aumenta 4% na taxa de mel para cada centímetro.** * **O número do disco tem um acréscimo de 6% na taxa de produção de mel a cada unidade.** * **O disco tem uma taxa de 8% de acréscimo para cada centímetro.** * **Por fim, o peso da colônia teve uma taxa de 40%. **