122 lines
5.8 KiB
Org Mode
122 lines
5.8 KiB
Org Mode
#+Title:Evolução de rebanho leiteiro em PRV
|
|
#+AUTHOR: Adenor Wendling
|
|
#+DATE: 10-23-2023
|
|
#+OPTIONS: creator:nil timestamp:nil
|
|
#+PROPERTY: header-args:R :results output :session *R3* :cmdline :tangle yes
|
|
#+PROPERTY: header-args:R+ :exports results
|
|
#+SETUPFILE: https://fniessen.github.io/org-html-themes/org/theme-readtheorg.setup
|
|
#+HTML_HEAD: <style> #content{max-width:1800px;}</style>
|
|
#+HTML_HEAD: <style> p{max-width:800px;}</style>
|
|
#+HTML_HEAD: <style> li{max-width:800px;}</style>
|
|
#+HTML_HEAD: <style> pre.src{background: #f5f5f5;color:black;}</style>
|
|
#+ATTR_HTML: :title testeAdenor :style color:red;[[https://orgmode.org]]
|
|
#+OPTIONS:with-date :with-tables
|
|
#+NAME: library
|
|
#+begin_src R :exports none
|
|
library(data.table)
|
|
library(dplyr)
|
|
library(flextable)
|
|
#+end_src
|
|
|
|
#+RESULTS: library
|
|
| DT |
|
|
| dplyr |
|
|
| data.table |
|
|
| stats |
|
|
| graphics |
|
|
| grDevices |
|
|
| utils |
|
|
| datasets |
|
|
| methods |
|
|
| base |
|
|
|
|
* Composição e evolução do rebanho
|
|
A composição do rebanho de cada estabelecimento varia conforme os objetivos, índices e manejo adotado. De modo geral, busca-se uma composição com maior participação de categorias produtivas, ou seja, em caso de atividade leiteira, busca-se maior número de animais na categoria *vacas em lactação*. Sua limitação geralmente está na capacidade de produção de alimentos na propriedade, ou ainda na capacidade de trabalho e das instalações.
|
|
Como o objetivo da presente proposta visa explorar a atividade em sistema a base de pasto, sendo que a maior parte da alimentação prevista será produzida no estabelecimento, este será considerado o fator limitante.
|
|
Da mesma forma, e evolução terá de respeitar o limite do estabelecimento, com incremento constante acompanhando as melhorias das pastagens.
|
|
Propomos que a base da composição e evolução seja calculada em número de cabeças e em unidade de gado maior (UMG), sendo que cada UGM equivale a 500 kg de peso vivo animal. De maneira geral, estima-se a UGM de acordo com a categoria animal ao qual pertence (Tabela 1). Esta é apenas uma aproximação, sendo que deve ser ajustado conforme o peso real dos animais ao longo da sua vida.
|
|
#+Caption: UGM de referência de acordo com a categoria animal
|
|
#+NAME: Tab1
|
|
| Cataegoria animal | UGM |
|
|
|-----------------------+------|
|
|
| Vacas em lactação | 1 |
|
|
| Vacas secas | 1 |
|
|
| Bezerras até 12 meses | 0.25 |
|
|
| Novilhas até 18 meses | 0.75 |
|
|
| Novilhas até 24 meses | 0.75 |
|
|
| Outros | 1 |
|
|
|-----------------------+------|
|
|
Uma composição do rebanho deve ser planejada para alcançar a máxima eficiência do sistema produtivo, sem presença de animais improdutivos. Estimar com exatidão a composição é tarefa difícil, pelo número de variáveis que podem afetá-la, mas teremos como foco alcançar a seguinte composição (Tabela 2):
|
|
|
|
;#+NAME: Composicao
|
|
#+begin_src R :exports results
|
|
#library(ascii) # exports result as org file
|
|
Composicao<-fread("~/Documentos/GITs/Compos_rebanho/data/composicao.csv", header=TRUE)
|
|
|
|
ft<-flextable(head(Composicao))
|
|
ft<-set_caption(ft,"Composição do rebanho depois de estabelisar o rebanho.")
|
|
ft<-width(ft,width=1.05)
|
|
print(theme_alafoli(ft))
|
|
#+end_src
|
|
|
|
#+RESULTS: Composicao
|
|
|
|
|
|
E evolução será baseado nos índices zootécnicos da raça, sendo: necessidade de substituição; fêmeas nascidas; intervalo entre nascimento e primeiro parto, mortalidade e intervalo entre partos.
|
|
Utilizamos os seguintes índices zootécnicos para estimar a evolução do rebanho do estabelecimento:
|
|
. Primeiro Parto = 26 meses
|
|
. Intervalo entre partos = 14 meses
|
|
. % de Fêmeas nascidas = 80% (uso de sêmen sexado)
|
|
. Mortalidade de bezerras = menor que 5%
|
|
. Descarte de vacas = 10 a 15%
|
|
Para equalizar a evolução entre os animais nascidos e necessários, serão vendidos os excedentes, na maioria dos casos na categoria bezerra.
|
|
|
|
** Composição inicial
|
|
O estabelecimento não possui animais, sendo que o início da atividade se dará através da aquisição de 20 novilhas cobertas, da raça jersey.
|
|
** Evolução
|
|
Com base nos índices zootécnicos e definições técnicas de capacidade de produção de alimentos, a evolução se dará conforme consta da tabela 3, e figura 1.
|
|
;#+NAME:evolucao
|
|
#+begin_src R :exports results
|
|
#library(ascii) # exports result as org file
|
|
Evolucao<-fread("~/Documentos/GITs/Compos_rebanho/data/ResumoEvolucaoVitruvio.csv", header=TRUE)
|
|
|
|
ft1<-flextable(Evolucao)
|
|
ft1<-set_caption(ft1,"Evolucao do rebanho durante os primeiros anos.")
|
|
ft1<-width(ft1,width=1.05)
|
|
print(theme_alafoli(ft1))
|
|
#+end_src
|
|
|
|
|
|
#+RESULTS: evolucao
|
|
|
|
Também podemos observar a evolução do rebanho em formato de figura.
|
|
|
|
#+CAPTION: Evolução do rebanho nos primeiros anos em formato de gráfico
|
|
#+ATTR_HTML:
|
|
[[file:~/Documentos/GITs/Compos_rebanho/data/ResEvolVit.png][Figura 1 - Evolução do rebanho em forma de gráfico]
|
|
|
|
|
|
** Entradas e saídas de animais
|
|
Com os índices zootécnicos e a evolução do rebanho proposta, teremos uma movimentação de compra e venda de animais conforme tabela 4.
|
|
|
|
#+begin_src R :exports results
|
|
#library(ascii) # exports result as org file
|
|
EntraSai<-fread("~/Documentos/GITs/Compos_rebanho/data/ResumoEntraSaiVitruvio.csv", header=TRUE)
|
|
EntraSai
|
|
ft2<-flextable(head(EntraSai))
|
|
ft2<-set_caption(ft2,"Previsão de entradas e saídas de animais.")
|
|
ft2<-width(ft2,width=1.05)
|
|
print(theme_alafoli(ft2))
|
|
#+end_src
|
|
|
|
#+RESULTS:
|
|
: Categoria 2004 2005 2006 2007 2008 2009
|
|
: 1: Vacas entradas 0 0 0 0 0 0
|
|
: 2: Novilhas entradas 20 0 0 0 0 0
|
|
: 3: Terneiras entradas 0 0 0 0 0 0
|
|
: 4: Total entradas 20 0 0 0 20 0
|
|
: 5: Vacas saídas 0 0 0 0 5 4
|
|
: 6: Novilhas saídas 0 0 0 0 0 0
|
|
: 7: Terneiras saídas 0 4 10 12 12 14
|
|
: 8: Total saídas 0 4 10 12 17 18
|