Inclui arquivo para o texto e fiz correções nos cálculos

doc/EvolucaoTexto.org

@@ -0,0 +1,121 @@
+#+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