#+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
  library(flextable)
  Composicao <- fread("../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("../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:../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("../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