#+Title:Evolução de rebanho leiteiro em PRV
#+AUTHOR: Adenor Wendling, José Brann e Ana Laura Carille
#+DATE: 08-31-2023
#+OPTIONS: creator:nil timestamp:nil
#+PROPERTY: header-args:R :results output :session *R2* :cmdline :tangle yes
#+PROPERTY: header-args:R+ :exports both
#+SLUG: orgmode-excel
#+TAGS: tabelas, org-mode, composição ideal
#+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>

O arquivo será dividido em duas partes. A primeira *O SCRIPT* contem as tabelas e fórmulas que devem ser usadas para efetuar as projeções da evolução. A segunda parte *Texto sugestão* contém uma sugestão de texto para ser inserido no *projeto*. Este texto deverá ser transferido, e finalizado na wiki ou no documento final.

* O SCRIPT
#+begin_src R :exports none
  library(data.table)
  library(dplyr)
  library(flextable)
  library(tidyr)
 #+end_src


Comnpisição ideal em número de animais por categoria:
#+Caption: Tabela 1 - 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.50 |
| Novilhas até 24 meses | 0.75 |
| Outros                |    1 |

 
#+Caption:Tabela 2. Composição ideal em porcentagem , número de animais e UGM, com base em 10 vacas em lactação.
:PROPERTIES:
:TABLE_EXPORT_FILE: ~/Documentos/GITs/Compos_rebanho/data/composicao.csv
:TABLE_EXPORT_FORMAT: orgtbl-to-csv
:END:
#+NAME: C_ideal
|   | Categoria de animais  | Cabeças (N) | Cabeças (%) | UGM (N) | UGM (%) |
|---+-----------------------+-------------+-------------+---------+---------|
| # | Vacas em lactação     |          24 |        66.7 |      24 |    82.5 |
| # | Vacas secas           |           2 |         5.9 |       2 |     6.8 |
| # | Bezerras ate 12 meses |           4 |        11.8 |      1. |     3.4 |
| # | Novilhas até 18 meses |           2 |         5.9 |      1. |     3.4 |
| # | Novilhas até 24 meses |           2 |         5.9 |     1.5 |     5.1 |
| # | Outros animais        |             |         0.0 |       0 |     0.0 |
| # | Total                 |          34 |       100.0 |    29.5 |   100.0 |
| ^ |                       |        Tcab |             |    Tugm |         |
|---+-----------------------+-------------+-------------+---------+---------|
#+TBLFM: $4=$3*100/$Tcab;%.1f::@2$5=@2$3*remote(Tab1,@2$2)::@8$3=@2$3+@3$3+@4$3+@5$3+@6$3+@7$3::@3$5=@3$3*remote(Tab1, @3$2)::@4$5=@4$3*remote(Tab1, @4$2)::@5$5=@5$3*remote(Tab1, @5$2)::@6$5=@6$3*remote(Tab1, @6$2)::@7$5=@7$3*remote(Tab1, @7$2)::@8$5=vsum(@2..@7)::$6=$5*100/$Tugm;%.1f

** área de Planejamento 

*** Tabela inicial, com o dimensionamento atual e previsão de entradas e saídas de animais
## Os dados desta tabela deve ser alterados conforme necessário para alcançar a evolução do rebanho desejada.
## As tabelas de composição de rebanho serão calculadas automáticamente, com base nos dados anotados na tabela <Tab0>.
#+Caption: Entradas e saídas de animais do rebanho durante os primeiros 6 anos (até estabilizar)
#+NAME:Tab0
|   | Constante              | 2023 | 2024 | 2025 | 2026 | 2027 | 2028 | observação   |
|---+------------------------+------+------+------+------+------+------+--------------|
|   | Partos/vaca/ano        |    1 | 1    | 1    | 1    | 1    | 1    |              |
| ^ |                        |  PV1 | PV2  | PV3  | PV4  | PV5  | PV6  |              |
|---+------------------------+------+------+------+------+------+------+--------------|
|   | Vacas Existentes       |   00 | -    | -    | -    | -    | -    | - a calcular |
| ^ |                        |  VE1 |      |      |      |      |      |              |
|   | Novilhas exist.        |   00 | -    | -    | -    | -    | -    | - a calcular |
| ^ |                        |  NE1 |      |      |      |      |      |              |
|   | Bezerras  existentes   |    0 | -    | -    | -    | -    | -    | - a calcular |
| ^ |                        |  TE1 |      |      |      |      |      |              |
|---+------------------------+------+------+------+------+------+------+--------------|
|   | Novilhas >- vacas      |    0 | 0    | 0    | 0    | 0    | 0    | NÃO ALTERAR  |
| ^ |                        |  TN1 | TN2  | TN3  | TN4  | TN5  | TN6  |              |
|   | % Bezerras -> novilhas |  0.4 | 0.4  | 0.75 | 0.7  | 0.7  | 0.7  | % S_Nascidos |
| ^ |                        |  BA1 | BA2  | BA3  | BA4  | BA5  | BA6  |              |
|---+------------------------+------+------+------+------+------+------+--------------|
|   | Vacas a vender         |    0 | 0    | 0    | 0    | 3    | 3    |              |
| ^ |                        |  VV1 | VV2  | VV3  | VV4  | VV5  | VV6  |              |
|   | Novilhas a vender      |    0 | 0    | 0    | 0    | 0    | 0    |              |
| ^ |                        |  NV1 | NV2  | NV3  | NV4  | NV5  | NV6  |              |
|   | Bezerras a vender      |    0 | 4    | 11   | 14   | 13   | 14   |              |
| ^ |                        |  BV1 | BV2  | BV3  | BV4  | BV5  | BV6  |              |
|---+------------------------+------+------+------+------+------+------+--------------|
|   | Vacas a comprar        |    0 | 0    | 0    | 0    | 0    | 0    |              |
| ^ |                        |  VC1 | VC2  | VC3  | VC4  | VC5  | VC6  |              |
|   | Novilhas a comprar     |   20 | 0    | 0    | 0    | 0    | 0    |              |
| ^ |                        |  NC1 | NC2  | NC3  | NC4  | NC5  | NC6  |              |
|   | Bezerras a compras     |    0 | 0    | 0    | 0    | 0    | 0    |              |
| ^ |                        |  BC1 | BC2  | BC3  | BC4  | BC5  | BC6  |              |
|---+------------------------+------+------+------+------+------+------+--------------|

** Área dos calculos
*** Composição anual do rebanho da fazenda
;; Estas tabelas (Tab3_1 a Tab_3-2 servem para calcular a evolução, mas não serão incluidos no relatórios final)
*** Ano 2023
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 1)
#+NAME: Tab3_1
|   | Categoria       | ExttAnt | TIR | Compra | Venda | Saldo | TIC | ExttFin |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS    >24    | 0       | 0   | 0      | 0     | 0     | 0   | 0       |
| ^ |                 | EAV     | TRV | COV    | VEV   | SAV   | TCV | EFV     |
| # | NOVILHAS 12<>24 | 0       | 0   | 20     | 0     | 20    | 20  | 0       |
| ^ |                 | EAN     | TRN | CON    | VEN   | SAN   | TCN | EFN     |
| # | BEZERRAS  <12   | 0       | 0   | 0      | 0     | 0     | 0   | 0       |
| ^ |                 | EAB     | FRB | COB    | VEB   | SAB   | TCB | EFB     |
| # | Outros          |         | 0   | 0      | 0     |       | 0   | 0       |
| ^ |                 | EAO     | FRO | COO    | VEO   | SAO   | TCO | EFO     |
#+TBLFM: $EAV=remote(Tab0, $VE1)::$EFV=$SAV-$TCV::$SAV=$EAV+$TRV+$COV-$VEV::$TCN=($EAN+$TRN+$CON-$VEV)::$VEV=remote(Tab0, $VV1):: $EAN=remote(Tab0, $NE1)::$TRN=remote(Tab0, $TN1)::$CON=remote(Tab0, $NC1)::$VEN=remote(Tab0, $NV1)::$SAN=$EAN+$TRN+$CON-$VEN::$EFN=$SAN-$TCN::$EAB=remote(Tab0, $TE1)::$FRB=$EFV*remote(Tab0, $BA1);%.0f::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB




*** Ano 2024

#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 2)
#+NAME: Tab3_2
|   | CATEGORIA       | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS  >24      | 0       | 20  | 0      | 0     | 20    | 0   | 20      |
| ^ |                 | EAV     | TRV | COV    | VEV   | SAV   | TCV | EFV     |
| # | Novilhas 12<>24 | 0       | 0   | 0      | 0     | 0     | 0   | 0       |
| ^ |                 | EAN     | TRN | CON    | VEN   | SAN   | TCN | EFN     |
| # | Bezerras   <12  | 0       | 8   | 0      | 4     | 4     | 4   | 0       |
| ^ |                 | EAB     | FRB | COB    | VEB   | SAB   | TCB | EFB     |
| # | outros          |         |     |        |       |       |     |         |
| ^ |                 | EAO     | FRO | COO    | VEO   | SAO   | TCO | EFO     |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
#+TBLFM: $EAV=remote(Tab3_1, $EFV)::$TRV=remote(Tab3_1, $TCN)::$COV=remote(Tab0,$VC2)::$VEV=remote(Tab0, $VV2)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_1, $EFN)::$TRN=remote(Tab3_1, $TCB)::$CON=remote(Tab0,$NC2)::$VEN=remote(Tab0, $NV2)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_1, $EFB)::$FRB=$EFV*remote(Tab0, $BA2);%.0f::$COB=remote(Tab0,$BC2)::$VEB=remote(Tab0,$BV2)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB


*** Ano 2025

Na tabela 3.3 podemos observar...
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 3)
#+NAME: Tab3_3
|   | CATEGORIA       | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS  >24      | 20      | 0   | 0      | 0     | 20    | 0   | 20      |
| ^ |                 | EAV     | TRV | COV    | VEV   | SAV   | TCV | EFV     |
| # | Novilhas 12<>24 | 0       | 4   | 0      | 0     | 4     | 4   | 0       |
| ^ |                 | EAN     | TRN | CON    | VEN   | SAN   | TCN | EFN     |
| # | Bezerras   <12  | 0       | 15  | 0      | 11    | 4     | 4   | 0       |
| ^ |                 | EAB     | FRB | COB    | VEB   | SAB   | TCB | EFB     |
| # | outros          |         |     |        |       |       |     |         |
| ^ |                 | EAO     | FRO | COO    | VEO   | SAO   | TCO | EFO     |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
#+TBLFM: $EAV=remote(Tab3_2, $EFV)::$TRV=remote(Tab3_2, $TCN)::$COV=remote(Tab0,$VC3)::$VEV=remote(Tab0, $VV3)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_2, $EFN)::$TRN=remote(Tab3_2, $TCB)::$CON=remote(Tab0,$NC3)::$VEN=remote(Tab0, $NV3)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_2, $EFB)::$FRB=$EFV*remote(Tab0, $BA3);%.0f::$COB=remote(Tab0,$BC3)::$VEB=remote(Tab0,$BV3)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB


*** Ano2026

#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 4)
#+NAME: Tab3_4
|   | CATEGORIA       | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS  >24      | 20      | 4   | 0      | 0     | 24    | 0   | 24      |
| ^ |                 | EAV     | TRV | COV    | VEV   | SAV   | TCV | EFV     |
| # | Novilhas 12<>24 | 0       | 4   | 0      | 0     | 4     | 4   | 0       |
| ^ |                 | EAN     | TRN | CON    | VEN   | SAN   | TCN | EFN     |
| # | Bezerras   <12  | 0       | 17  | 0      | 13    | 4     | 4   | 0       |
| ^ |                 | EAB     | FRB | COB    | VEB   | SAB   | TCB | EFB     |
| # | outros          | 1       |     |        |       |       |     |         |
| ^ |                 | EAO     | FRO | COO    | VEO   | SAO   | TCO | EFO     |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
|   |                 |         |     |        |       |       |     |         |
#+TBLFM: $EAV=remote(Tab3_3, $EFV)::$TRV=remote(Tab3_3, $TCN)::$COV=remote(Tab0,$VC4)::$VEV=remote(Tab0, $VV4)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_3, $EFN)::$TRN=remote(Tab3_3, $TCB)::$CON=remote(Tab0,$NC4)::$VEN=remote(Tab0, $NV4)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_3, $EFB)::$FRB=$EFV*remote(Tab0, $BA4);%.0f::$COB=remote(Tab0,$BC4)::$VEB=remote(Tab0,$BV4)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB


*** Ano 2027

#+NAME: Tab3_5
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 5)
|   | CATEGORIA       | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS  >24      | 24      | 4   | 0      | 3     | 25    | 0   | 25      |
| ^ |                 | EAV     | TRV | COV    | VEV   | SAV   | TCV | EFV     |
| # | Novilhas 12<>24 | 0       | 4   | 0      | 0     | 4     | 4   | 0       |
| ^ |                 | EAN     | TRN | CON    | VEN   | SAN   | TCN | EFN     |
| # | Bezerras   <12  | 0       | 18  | 0      | 14    | 4     | 4   | 0       |
| ^ |                 | EAB     | FRB | COB    | VEB   | SAB   | TCB | EFB     |
| # | outros          | 1       |     |        |       | 1     |     | 1       |
| ^ |                 | EAO     | FRO | COO    | VEO   | SAO   | TCO | EFO     |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
|   |                 |         |     |        |       |       |     |         |
#+TBLFM:$EAV=remote(Tab3_4,$EFV)::$TRV=remote(Tab3_4,$TCN)::$COV=remote(Tab0,$VC5)::$VEV=remote(Tab0,$VV5)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_4,$EFN)::$TRN=remote(Tab3_4,$TCB)::$CON=remote(Tab0,$NC5)::$VEN=remote(Tab0,$NV5)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_4,$EFB)::$FRB=$EFV*remote(Tab0,$BA5);%.0f::$COB=remote(Tab0,$BC5)::$VEB=remote(Tab0,$BV4)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB



*** Ano 2028



#+NAME:Tab3_6
#+caption: Composição do rebanho na fazenda VITRUVIO (ANO 6)
|   | CATEGORIA       | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS  >24      | 25      | 4   | 0      | 3     | 26    | 0   | 26      |
| ^ |                 | EAV     | TRV | COV    | VEV   | SAV   | TCV | EFV     |
| # | Novilhas 12<>24 | 0       | 4   | 0      | 0     | 4     | 4   | 0       |
| ^ |                 | EAN     | TRN | CON    | VEN   | SAN   | TCN | EFN     |
| # | Bezerras   <12  | 0       | 18  | 0      | 14    | 4     | 4   | 0       |
| ^ |                 | EAB     | FRB | COB    | VEB   | SAB   | TCB | EFB     |
| # | outros          | 1       |     |        |       |       |     |         |
| ^ |                 | EAO     | FRO | COO    | VEO   | SAO   | TCO | EFO     |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
#+TBLFM: $EAV=remote(Tab3_5, $EFV)::$TRV=remote(Tab3_5, $TCN)::$COV=remote(Tab0,$VC6)::$VEV=remote(Tab0, $VV6)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_5, $EFN)::$TRN=remote(Tab3_5, $TCB)::$CON=remote(Tab0,$NC6)::$VEN=remote(Tab0, $NV6)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_5, $EFB)::$FRB=$EFV*remote(Tab0, $BA6);%.0f::$COB=remote(Tab0,$BC6)::$VEB=remote(Tab0,$BV6)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB


** Área dos resumos dos cálculos

*** Animais existentes anualmente
#+NAME:TABELA4
#+CAPTION:  Resumo da evolução do rebanho (Animais existentes anualmente) nos primeiros anos do projeto
:PROPERTIES:
:TABLE_EXPORT_FILE: ~/Documentos/GITs/Compos_rebanho/data/ResumoEvolucapVitruvio.csv
:TABLE_EXPORT_FORMAT: orgtbl-to-csv
:END:
|   | Categoria | 2023 | 2024 | 2025 | 2026 | 2027 | 2028 |
|---+-----------+------+------+------+------+------+------|
| # | Vacas     |    0 |   20 |   20 |   24 |   25 |   26 |
| # | Novilhas  |   20 |    0 |    4 |    4 |    4 |    4 |
| # | Terneiras |    0 |    4 |    4 |    4 |    4 |    4 |
|---+-----------+------+------+------+------+------+------|
| # | T_cab     |   20 |   24 |   28 |   32 |   33 |   34 |
| # | T_UGMs    |  15. |  21. |  24. |  28. |  29. |  30. |

#+TBLFM:@2$3=remote(Tab3_1, $SAV)::@2$4=remote(Tab3_2, $SAV)::@2$5=remote(Tab3_3, $SAV)::@2$6=remote(Tab3_4, $SAV)::@2$7=remote(Tab3_5, $SAV)::@2$8=remote(Tab3_6, $SAV)::@3$3=remote(Tab3_1, $SAN)::@3$4=remote(Tab3_2, $SAN)::@3$5=remote(Tab3_3, $SAN)::@3$6=remote(Tab3_4, $SAN)::@3$7=remote(Tab3_5, $SAN)::@3$8=remote(Tab3_6, $SAN)::@4$3=remote(Tab3_1, $SAB)::@4$4=remote(Tab3_2, $SAB)::@4$5=remote(Tab3_3, $SAB)::@4$6=remote(Tab3_4, $SAB)::@4$7=remote(Tab3_5, $SAB)::@4$8=remote(Tab3_6, $SAB)::@5$3=@2$3+@3$3+@4$3::@5$4=@2$4+@3$4+@4$4::@5$5=@2$5+@3$5+@4$5::@5$6=@2$6+@3$6+@4$6:: @5$7=@2$7+@3$7+@4$7::@5$8=@2$8+@3$8+@4$8::@6$3=(@2$3*remote(Tab1,@2$2)+@3$3*remote(tab1,@6$2)+@4$3*remote(tab1,@4$2))::@6$4=(@2$4*remote(Tab1,@2$2)+@3$4*remote(tab1,@6$2)+@4$4*remote(tab1,@4$2))::@6$5=(@2$5*remote(Tab1,@2$2)+@3$5*remote(tab1,@6$2)+@4$5*remote(tab1,@4$2))::@6$6=(@2$6*remote(Tab1,@2$2)+@3$6*remote(tab1,@6$2)+@4$6*remote(tab1,@4$2))::@6$7=(@2$7*remote(Tab1,@2$2)+@3$7*remote(tab1,@6$2)+@4$7*remote(tab1,@4$2))::@6$8=(@2$8*remote(Tab1,@2$2)+@3$8*remote(tab1,@6$2)+@4$8*remote(tab1,@4$2))


## A TABELA5 será incluída no documento final

*** Entradas e saídas anuais de animais
#+NAME:TABELA5
#+CAPTION:  Resumo das entradas e saídas de animais nos primeiros anos do projeto
:PROPERTIES:
:TABLE_EXPORT_FILE: ~/Documentos/GITs/Compos_rebanho/data/ResumoEntraSaiVitruvio.csv
:TABLE_EXPORT_FORMAT: orgtbl-to-csv
:END: 
|   | Categoria          | 2023 | 2024 | 2025 | 2026 | 2027 | 2028 |
|---+--------------------+------+------+------+------+------+------|
| # | Vacas entradas     |    0 |    0 |    0 |    0 |    0 |    0 |
| # | Novilhas entradas  |   20 |    0 |    0 |    0 |    0 |    0 |
| # | Terneiras entradas |    0 |    0 |    0 |    0 |    0 |    0 |
|---+--------------------+------+------+------+------+------+------|
| # | Total entradas     |   20 |    0 |    0 |    0 |    0 |    0 |
|---+--------------------+------+------+------+------+------+------|
| # | Vacas saídas       |    0 |    0 |    0 |    0 |    3 |    2 |
| # | Novilhas saídas    |    0 |    0 |    0 |    0 |    0 |    0 |
| # | Terneiras saídas   |    0 |    4 |   11 |   14 |   14 |   15 |
|---+--------------------+------+------+------+------+------+------|
| # | Total saídas       |    0 |    4 |   11 |   14 |   17 |   17 |
| # |                    |      |      |      |      |      |      |
|---+--------------------+------+------+------+------+------+------|
|   |                    |      |      |      |      |      |      |
#+TBLFM:@2$3=remote(Tab3_1, $COV)::@2$4=remote(Tab3_2, $COV)::@2$5=remote(Tab3_3, $COV)::@2$6=remote(Tab3_4, $COV)::@2$7=remote(Tab3_5, $COV)::@2$8=remote(Tab3_6, $COV)::@3$3=remote(Tab3_1, $CON)::@3$4=remote(Tab3_2, $CON)::@3$5=remote(Tab3_3, $CON)::@3$6=remote(Tab3_4, $CON)::@3$7=remote(Tab3_5, $CON)::@3$8=remote(Tab3_6, $CON)::@4$3=remote(Tab3_1, $COB)::@4$4=remote(Tab3_2, $COB)::@4$5=remote(Tab3_3, $COB)::@4$6=remote(Tab3_4, $COB)::@4$7=remote(Tab3_5, $COB)::@4$8=remote(Tab3_6, $COB)::@5$3=@2$3+@3$3+@4$3::@5$4=@2$4+@3$4+@4$4::@5$5=@2$5+@3$5+@4$5::@5$6=@2$6+@3$6+@4$6::@5$7=@2$7+@3$7+@4$7::@5$8=@2$8+@3$8+@4$8::@6$3=remote(Tab3_1, $VEV)::@6$4=remote(Tab3_2, $VEV)::@6$5=remote(Tab3_3, $VEV)::@6$6=remote(Tab3_4, $VEV)::@6$7=remote(Tab3_5, $VEV)::@6$8=remote(Tab3_6, $VEV)::@7$3=remote(Tab3_1, $VEN)::@7$4=remote(Tab3_2, $VEN)::@7$5=remote(Tab3_3, $VEN)::@7$6=remote(Tab3_4, $VEN)::@7$7=remote(Tab3_5, $VEN)::@7$8=remote(Tab3_6, $VEN)::@8$3=remote(Tab3_1, $VEB)::@8$4=remote(Tab3_2, $VEB)::@8$5=remote(Tab3_3, $VEB)::@8$6=remote(Tab3_4, $VEB)::@8$7=remote(Tab3_5, $VEB)::@8$8=remote(Tab3_6, $VEB)::@9$3=@6$3+@7$3+@8$3::@9$4=@6$4+@7$4+@8$4::@9$5=@6$5+@7$5+@8$5::@9$6=@6$6+@7$6+@8$6::@9$7=@6$7+@7$3+@8$7::@9$8=@6$8+@7$8+@8$8
## Para exportar a tabela > M-x org-tabel-export (enter) "path"  y, ,..


*** Gráfico resumo
#+NAME: Ler data.table Resumo
#+begin_src R :exports results
REV<-fread("../data/ResumoEvolucaoVitruvio.csv",  header=TRUE)
      REv<- REV%>%
          pivot_longer (cols=c("2023", "2024", "2025", "2026", "2027", "2028"),
          names_to="Ano",
          values_to="Quantidade",
              values_drop_na = TRUE )

  REv$Ano=as.numeric(REv$Ano)
  #View(REv)
  #+end_src

 ** Gráfico para uso 
  #+NAME: grafico resumo
  #+begin_src R :grafResum.png 
          library (ggplot2)

      ResEvolVit<-ggplot(REv, aes(Ano,
                        Quantidade,
                    colour=Categoria))+
                                     geom_line()
    ggsave("EvolucaoRebanho.png", ResEvolVit, path="~/Nextcloud/00-Projetos/01-Vitruvio/2023/04-Imagens/DocFinal", width=7, height=3, units="in")
    #ResEvolVit
   #+end_src

* Texto Sugestão   
** 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.



** Relação Unidade de Gado Maior (UGM) x categoria animal
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*. Estima-se a UGM de acordo com a categoria animal à 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.

Tabela 1 - UGM de referência de acordo com a categoria animal.
| 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 |
|-----------------------+------|


** Composição do Rebanho
A 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 composição apresentada na *Tabela 2*.

Tabela 2. Composição ideal em porcentagem , número de animais e UGM, com base em 10 vacas em lactação.

*** Parâmetros zootécnicos considerados para estimar a evolução do rebanho

A evolução será baseada nos índices zootécnicos da raça, sendo:

    Necessidade de substituição
    Fêmeas nascidas
    Intervalo entre nascimento e primeiro parto
    Mortalidade
    Intervalo entre partos.
    Venda de animais excedentes bezerros (3 meses) e vacas de descarte

Utilizamos os seguintes índices zootécnicos para estimar a evolução do rebanho do estabelecimento:

    Primeiro parto: 26 meses
    Intervalo entre partos: 14 meses
    Porcentagem 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.

    Nota: o critério de seleção das novilhas deve permitir que os animais incorporados estejam saudáveis e possuam potencial produtivo acorde às necessidades da Fazenda Vitruvio: animais rústicos adaptados ao pastoreio e de produção de volume de leite médio, mas persistente durante a lactação



** 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 na Tabela 3, e Figura 1.

Tabela 3. Resumo da evolução do rebanho (Animais existentes anualmente) nos primeiros anos do projeto
#+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:

Também podemos observar a evolução do rebanho em formato de figura.

Figura 1. Evolução do rebanho nos primeiros anos em formato de gráfico
   
[[file:~/Nextcloud/00-Projetos/01-Vitruvio/2023/04-Imagens/DocFinal/EvolucaoRebanho.png][link do gráfico]]

** Entradas e saídas de animais do rebanho
Os indicativos da evolução do rebanho, baseados nosíndicadores zootécnicos e  manejo recomendado, oferecem a oportunidade de comercialização (venda) de animais excedentes. A opção dos proprietários deste estabelecimentos, é que os animais sejam vendidos quando ainda jovens (3 meses aproximadamente), e vacas de descarte. A quantidade de ano em que os excedentes estão previstos consta na tabela 4.

Tabela 4 - Resumo das entradas e saídas de animais nos primeiros anos do projeto


* Referências