adenor/Compos_rebanho
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Adenor Vicente Wendling
2023-10-24 14:21:10 -03:00
parent 6cfa773444
commit c741359a35
14 changed files with 1038 additions and 597 deletions
Download Patch File Download Diff File Expand all files Collapse all files

150
EvolucaoVitruvio.html
View File

@ -26,31 +26,31 @@
<h2>Table of Contents</h2>
<div id="text-table-of-contents" role="doc-toc">
<ul>
<li><a href="#org5dc0750">1. TODO</a></li>
<li><a href="#org54b251a">2. Indices</a></li>
<li><a href="#orgbb62162">3. Relação UGM e categoria animal</a></li>
<li><a href="#org59718ed">4. Composição do Rebanho</a></li>
<li><a href="#org48f08d7">5. Tabela inicial, com o dimensionamento atual e previsão de entradas e saídas de animais</a></li>
<li><a href="#org9efd660">6. Composição anual do rebanho da fazenda</a>
<li><a href="#org301af14">1. TODO</a></li>
<li><a href="#orgf83f3bd">2. Indices</a></li>
<li><a href="#org7e0519e">3. Relação UGM e categoria animal</a></li>
<li><a href="#orgec3eef6">4. Composição do Rebanho</a></li>
<li><a href="#orge27c2a1">5. Tabela inicial, com o dimensionamento atual e previsão de entradas e saídas de animais</a></li>
<li><a href="#org74990e1">6. Composição anual do rebanho da fazenda</a>
<ul>
<li><a href="#org9986c8b">6.1. Ano 1</a></li>
<li><a href="#orgeeda7ea">6.2. Ano 2</a></li>
<li><a href="#orgaca7ace">6.3. Ano 3</a></li>
<li><a href="#orgc85d3f9">6.4. Ano 4</a></li>
<li><a href="#orgddcc0d5">6.5. Ano 5</a></li>
<li><a href="#org8aa7504">6.6. Ano 6</a></li>
<li><a href="#org29d133c">6.1. Ano 1</a></li>
<li><a href="#orgfe8edc8">6.2. Ano 2</a></li>
<li><a href="#org9ed4cda">6.3. Ano 3</a></li>
<li><a href="#orga0d38d3">6.4. Ano 4</a></li>
<li><a href="#org2b5562c">6.5. Ano 5</a></li>
<li><a href="#org30a9ecd">6.6. Ano 6</a></li>
</ul>
</li>
<li><a href="#orgd9f40d2">7. Resumo da evolução</a>
<li><a href="#org74128b5">7. Resumo da evolução</a>
<ul>
<li><a href="#orgbff25d5">7.1. Entradas e saídas</a></li>
<li><a href="#org2685167">7.2. Animais existentes</a></li>
<li><a href="#orged305e6">7.1. Entradas e saídas</a></li>
<li><a href="#org66b0857">7.2. Animais existentes</a></li>
</ul>
</li>
<li><a href="#org23f199d">8. <span class="todo TODO">TODO</span> Resolver exportar ou criar data.tabela. Para continuar, é necessário exportar a Tabela acima. Faço pelo menu Table - Export to file. Nome do Arquivo a exportar = Tabela$.csv.&gt;&gt;</a>
<li><a href="#orga918ca1">8. <span class="todo TODO">TODO</span> Resolver exportar ou criar data.tabela. Para continuar, é necessário exportar a Tabela acima. Faço pelo menu Table - Export to file. Nome do Arquivo a exportar = Tabela$.csv.&gt;&gt;</a>
<ul>
<li><a href="#org7564224">8.1. Gráfico resumo</a></li>
<li><a href="#orgd7efb71">8.2. </a></li>
<li><a href="#org9aa7046">8.1. Gráfico resumo</a></li>
<li><a href="#org7c8b5d4">8.2. </a></li>
</ul>
</li>
</ul>
@ -59,8 +59,8 @@
<div id="outline-container-org5dc0750" class="outline-2">
<h2 id="org5dc0750"><span class="section-number-2">1.</span> TODO</h2>
<div id="outline-container-org301af14" class="outline-2">
<h2 id="org301af14"><span class="section-number-2">1.</span> TODO</h2>
<div class="outline-text-2" id="text-1">
<p>
Continuar planilha
@ -81,8 +81,8 @@ e <a href="https://orgmode.org/org.html#Built_002din-Table-Editor">https://orgmo
</div>
</div>
<div id="outline-container-org54b251a" class="outline-2">
<h2 id="org54b251a"><span class="section-number-2">2.</span> Indices</h2>
<div id="outline-container-orgf83f3bd" class="outline-2">
<h2 id="orgf83f3bd"><span class="section-number-2">2.</span> Indices</h2>
<div class="outline-text-2" id="text-2">
<p>
IP = intervalo entre partos (12 meses) (setq IP "12")
@ -105,10 +105,10 @@ IRP = Índice de renovação do plantel - substituição de vacas velhas
</div>
<div id="outline-container-orgbb62162" class="outline-2">
<h2 id="orgbb62162"><span class="section-number-2">3.</span> Relação UGM e categoria animal</h2>
<div id="outline-container-org7e0519e" class="outline-2">
<h2 id="org7e0519e"><span class="section-number-2">3.</span> Relação UGM e categoria animal</h2>
<div class="outline-text-2" id="text-3">
<table id="orgc5a6a69" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<table id="orgdbeadde" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<caption class="t-above"><span class="table-number">Table 1:</span> UGM de referência de acordo com a categoria animal</caption>
<colgroup>
@ -169,15 +169,15 @@ Os dados acima são padronizados, sendo que, por padrão, 1 UGM equivale a 500 k
</p>
</div>
</div>
<div id="outline-container-org59718ed" class="outline-2">
<h2 id="org59718ed"><span class="section-number-2">4.</span> Composição do Rebanho</h2>
<div id="outline-container-orgec3eef6" class="outline-2">
<h2 id="orgec3eef6"><span class="section-number-2">4.</span> Composição do Rebanho</h2>
<div class="outline-text-2" id="text-4">
<p>
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 <b>vacas em lactação</b>.
Os dados da tabela 2 refletem a composição de um rebanho com finalidade de produção de leite, considerando um manejo reprodutivo e de alimentação excelentes.
</p>
<table id="orgd86d203" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<table id="orgd55f070" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<caption class="t-above"><span class="table-number">Table 2:</span> Composição ideal em porcentagem , número de animais e UGM, com base em 10 vacas em lactação.</caption>
<colgroup>
@ -276,14 +276,14 @@ haverá impacto na evolução do rebanho, o que não caracteriza necessariamente
<div id="outline-container-org48f08d7" class="outline-2">
<h2 id="org48f08d7"><span class="section-number-2">5.</span> Tabela inicial, com o dimensionamento atual e previsão de entradas e saídas de animais</h2>
<div id="outline-container-orge27c2a1" class="outline-2">
<h2 id="orge27c2a1"><span class="section-number-2">5.</span> Tabela inicial, com o dimensionamento atual e previsão de entradas e saídas de animais</h2>
<div class="outline-text-2" id="text-5">
<p>
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 &lt;Tab0&gt;.
</p>
<table id="orgb9e87e8" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<table id="org5fb4e9d" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<caption class="t-above"><span class="table-number">Table 3:</span> Entradas e saídas de animais do rebanho durante os primeiros 6 anos (até estabilizar)</caption>
<colgroup>
@ -470,14 +470,14 @@ Temos o seguinte:
</div>
<div id="outline-container-org9efd660" class="outline-2">
<h2 id="org9efd660"><span class="section-number-2">6.</span> Composição anual do rebanho da fazenda</h2>
<div id="outline-container-org74990e1" class="outline-2">
<h2 id="org74990e1"><span class="section-number-2">6.</span> Composição anual do rebanho da fazenda</h2>
<div class="outline-text-2" id="text-6">
</div>
<div id="outline-container-org9986c8b" class="outline-3">
<h3 id="org9986c8b"><span class="section-number-3">6.1.</span> Ano 1</h3>
<div id="outline-container-org29d133c" class="outline-3">
<h3 id="org29d133c"><span class="section-number-3">6.1.</span> Ano 1</h3>
<div class="outline-text-3" id="text-6-1">
<table id="org5b62776" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<table id="orgd985122" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<caption class="t-above"><span class="table-number">Table 4:</span> Composição do rebanho na fazenda VITRUVIO (ANO 1)</caption>
<colgroup>
@ -564,10 +564,10 @@ Na tabela 4 consta o número de animais para cada categoria, com as ocorrencias
</div>
<div id="outline-container-orgeeda7ea" class="outline-3">
<h3 id="orgeeda7ea"><span class="section-number-3">6.2.</span> Ano 2</h3>
<div id="outline-container-orgfe8edc8" class="outline-3">
<h3 id="orgfe8edc8"><span class="section-number-3">6.2.</span> Ano 2</h3>
<div class="outline-text-3" id="text-6-2">
<table id="orgbd7be50" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<table id="orgc5a90d5" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<caption class="t-above"><span class="table-number">Table 5:</span> Composição do rebanho na fazenda VITRUVIO (ANO 2)</caption>
<colgroup>
@ -651,13 +651,13 @@ Comentários sobre tabela 5
</p>
</div>
</div>
<div id="outline-container-orgaca7ace" class="outline-3">
<h3 id="orgaca7ace"><span class="section-number-3">6.3.</span> Ano 3</h3>
<div id="outline-container-org9ed4cda" class="outline-3">
<h3 id="org9ed4cda"><span class="section-number-3">6.3.</span> Ano 3</h3>
<div class="outline-text-3" id="text-6-3">
<p>
Na tabela 3.3 podemos observar&#x2026;
</p>
<table id="org193f74b" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<table id="orge1096e1" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<caption class="t-above"><span class="table-number">Table 6:</span> Composição do rebanho na fazenda VITRUVIO (ANO 3)</caption>
<colgroup>
@ -741,10 +741,10 @@ Comentários sobre a tabela 6
</div>
</div>
<div id="outline-container-orgc85d3f9" class="outline-3">
<h3 id="orgc85d3f9"><span class="section-number-3">6.4.</span> Ano 4</h3>
<div id="outline-container-orga0d38d3" class="outline-3">
<h3 id="orga0d38d3"><span class="section-number-3">6.4.</span> Ano 4</h3>
<div class="outline-text-3" id="text-6-4">
<table id="orgddd22e1" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<table id="org6eb672c" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<caption class="t-above"><span class="table-number">Table 7:</span> Composição do rebanho na fazenda VITRUVIO (ANO 4)</caption>
<colgroup>
@ -828,8 +828,8 @@ Comentários da tabela 7
</p>
</div>
</div>
<div id="outline-container-orgddcc0d5" class="outline-3">
<h3 id="orgddcc0d5"><span class="section-number-3">6.5.</span> Ano 5</h3>
<div id="outline-container-org2b5562c" class="outline-3">
<h3 id="org2b5562c"><span class="section-number-3">6.5.</span> Ano 5</h3>
<div class="outline-text-3" id="text-6-5">
<p>
:TABLE<sub>EXPORT</sub><sub>FILE</sub>: Documents/Tabela 3.5.csv
@ -932,15 +932,15 @@ Comentários da tabela 8
</div>
</div>
<div id="outline-container-org8aa7504" class="outline-3">
<h3 id="org8aa7504"><span class="section-number-3">6.6.</span> Ano 6</h3>
<div id="outline-container-org30a9ecd" class="outline-3">
<h3 id="org30a9ecd"><span class="section-number-3">6.6.</span> Ano 6</h3>
<div class="outline-text-3" id="text-6-6">
<p>
e, finalmente, na tabela 9, a composição do rebanho no sexto ano após a implementeação e adoção do PRV na propriedade VITRUVIO.
</p>
<table id="orgddfb04c" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<table id="org3011dff" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<caption class="t-above"><span class="table-number">Table 8:</span> Composição do rebanho na fazenda VITRUVIO (ANO 6)</caption>
<colgroup>
@ -1024,8 +1024,8 @@ e, finalmente, na tabela 9, a composição do rebanho no sexto ano após a imple
<div id="outline-container-orgd9f40d2" class="outline-2">
<h2 id="orgd9f40d2"><span class="section-number-2">7.</span> Resumo da evolução</h2>
<div id="outline-container-org74128b5" class="outline-2">
<h2 id="org74128b5"><span class="section-number-2">7.</span> Resumo da evolução</h2>
<div class="outline-text-2" id="text-7">
<p>
Esta tabela é a que efetivamente interessa para ser apresentada ao cliente, ou para análise técnica, pois apresenta o resumo (resultado da evolução) proposto para a fazenda.
@ -1037,8 +1037,8 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
</p>
</div>
<div id="outline-container-orgbff25d5" class="outline-3">
<h3 id="orgbff25d5"><span class="section-number-3">7.1.</span> Entradas e saídas</h3>
<div id="outline-container-orged305e6" class="outline-3">
<h3 id="orged305e6"><span class="section-number-3">7.1.</span> Entradas e saídas</h3>
<div class="outline-text-3" id="text-7-1">
<table border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
@ -1168,8 +1168,8 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
</div>
</div>
<div id="outline-container-org2685167" class="outline-3">
<h3 id="org2685167"><span class="section-number-3">7.2.</span> Animais existentes</h3>
<div id="outline-container-org66b0857" class="outline-3">
<h3 id="org66b0857"><span class="section-number-3">7.2.</span> Animais existentes</h3>
<div class="outline-text-3" id="text-7-2">
<p>
:TABLE<sub>EXPORT</sub><sub>FILE</sub>: data/Tabela4.csv
@ -1274,44 +1274,18 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
</div>
</div>
<div id="outline-container-org23f199d" class="outline-2">
<h2 id="org23f199d"><span class="section-number-2">8.</span> <span class="todo TODO">TODO</span> Resolver exportar ou criar data.tabela. Para continuar, é necessário exportar a Tabela acima. Faço pelo menu Table - Export to file. Nome do Arquivo a exportar = Tabela$.csv.&gt;&gt;</h2>
<div id="outline-container-orga918ca1" class="outline-2">
<h2 id="orga918ca1"><span class="section-number-2">8.</span> <span class="todo TODO">TODO</span> Resolver exportar ou criar data.tabela. Para continuar, é necessário exportar a Tabela acima. Faço pelo menu Table - Export to file. Nome do Arquivo a exportar = Tabela$.csv.&gt;&gt;</h2>
<div class="outline-text-2" id="text-8">
</div>
<div id="outline-container-org7564224" class="outline-3">
<h3 id="org7564224"><span class="section-number-3">8.1.</span> Gráfico resumo</h3>
<div id="outline-container-org9aa7046" class="outline-3">
<h3 id="org9aa7046"><span class="section-number-3">8.1.</span> Gráfico resumo</h3>
<div class="outline-text-3" id="text-8-1">
<div class="org-src-container">
<pre class="src src-R" id="orgd1ca1b8"> library(data.table)
library(tidyr)
library(dplyr)
REV&lt;-fread("~/Documentos/GITs/Compos_rebanho/data/ResumoEvolucaoVitruvio.csv", header=TRUE)
REv&lt;- REV%&gt;%
pivot_longer (cols=c("2004", "2005", "2006", "2007", "2008", "2009"),
names_to="Ano",
values_to="Quantidade",
values_drop_na = TRUE )
REv$Ano=as.numeric(REv$Ano)
View(REv)
#end_src
#+NAME: grafico resumo
#+begin_src R
library (ggplot2)
test1&lt;-ggplot(REv, aes(Ano,
Quantidade,
colour=Categoria))+
geom_line()
test1
</pre>
</div>
</div>
</div>
<div id="outline-container-orgd7efb71" class="outline-3">
<h3 id="orgd7efb71"><span class="section-number-3">8.2.</span> </h3>
<div id="outline-container-org7c8b5d4" class="outline-3">
<h3 id="org7c8b5d4"><span class="section-number-3">8.2.</span> </h3>
</div>
</div>
</div>

693
EvolucaoVitruvio.html~
View File

File diff suppressed because it is too large Load Diff

122
EvolucaoVitruvio.org
View File

@ -47,7 +47,7 @@ IRP = Índice de renovação do plantel - substituição de vacas velhas
| Vacas em lactação | 1 | vaca |
| Vacas secas | 1 | vase |
| Bezerras até 12 meses | 0.25 | Beze |
| Novilhas até 18 meses | 0.50 | No18 |
| Novilhas até 18 meses | 0.75 | No18 |
| Novilhas até 24 meses | 0.75 | No24 |
| Outros | 1 | Outr |
|-----------------------+------+-------|
@ -57,19 +57,25 @@ Os dados acima são padronizados, sendo que, por padrão, 1 UGM equivale a 500 k
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*.
Os dados da tabela 2 refletem a composição de um rebanho com finalidade de produção de leite, considerando um manejo reprodutivo e de alimentação excelentes.
#+Caption: 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 | %cab% | UGM | %UGM |
|---+-----------------------+---------+-------+------+-------|
| # | Vacas em lactação | 18 | 51.4 | 18 | 76.9 |
| # | Vacas secas | 2 | 9.5 | 2 | 12.1 |
| # | Bezerras ate 12 meses | 10 | 32.3 | 2.5 | 2.8 |
| # | Novilhas até 18 meses | 3 | 9.1 | 1.5 | 6.2 |
| # | Novilhas até 24 meses | 0 | 0.0 | 0. | 0.0 |
| # | Outros animais | | 0.0 | 0 | 0.0 |
| # | Total | 33 | 100.0 | 24. | 100.0 |
| ^ | | Tcab | | Tugm | |
|---+-----------------------+---------+-------+------+-------|
| | Categoria de animais | Cabeças (N) | Cabeças (%) | UGM (N) | UGM (%) |
|---+-----------------------+-------------+-------------+---------+---------|
| # | Vacas em lactação | 20 | 60.6 | 20 | 75.0 |
| # | Vacas secas | 2 | 6.7 | 2 | 7.8 |
| # | Bezerras ate 12 meses | 4 | 13.3 | 1. | 3.9 |
| # | Novilhas até 18 meses | 2 | 6.7 | 1. | 3.9 |
| # | Novilhas até 24 meses | 2 | 6.7 | 1.5 | 5.9 |
| # | Outros animais | | 0.0 | 0 | 0.0 |
| # | Total | 30 | 100.0 | 25.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
@ -107,11 +113,11 @@ As tabelas de composição de rebanho serão calculadas automáticamente, com ba
| | % 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 | 5 | 4 | |
| | Vacas a vender | 0 | 0 | 0 | 2 | 5 | 4 | |
| ^ | | 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 | 10 | 12 | 15 | 14 | |
| | Bezerras a vender | 0 | 4 | 10 | 11 | 11 | 11 | |
| ^ | | BV1 | BV2 | BV3 | BV4 | BV5 | BV6 | |
|---+------------------------+-------+-------+-------+-------+-------+--------+--------------|
| | Vacas a comprar | 0 | 0 | 0 | 0 | 0 | 0 | |
@ -134,7 +140,7 @@ Temos o seguinte:
>> No segundo ano serão compradas 2 novilhas
* Composição anual do rebanho da fazenda
** Composição anual do rebanho da fazenda
** Ano 1
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 1)
#+NAME: Tab3_1
@ -144,7 +150,7 @@ Temos o seguinte:
| ^ | | 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 |
| # | 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 |
@ -197,11 +203,11 @@ Comentários sobre a tabela 6
#+NAME: Tab3_4
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 20 | 4 | 0 | 0 | 24 | 0 | 24 |
| # | VACAS >24 | 20 | 4 | 0 | 2 | 22 | 0 | 22 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 5 | 0 | 0 | 5 | 5 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 17 | 0 | 12 | 5 | 5 | 0 |
| # | Bezerras <12 | 0 | 15 | 0 | 11 | 4 | 4 | 0 |
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | | | |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
@ -213,17 +219,13 @@ Comentários sobre a tabela 6
#+NAME: Tab3_5
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 5)
:PROPERTIES:
:TABLE_EXPORT_FILE: Documents/Tabela 3.5.csv
:TABLE_EXPORT_FORMAT: orgtbl-to-csv
:END:
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 24 | 5 | 0 | 5 | 24 | 0 | 24 |
| # | VACAS >24 | 22 | 5 | 0 | 5 | 22 | 0 | 22 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 5 | 0 | 0 | 5 | 5 | 0 |
| # | Novilhas 12<>24 | 0 | 4 | 0 | 0 | 4 | 4 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 17 | 0 | 12 | 5 | 5 | 0 |
| # | Bezerras <12 | 0 | 15 | 0 | 11 | 4 | 4 | 0 |
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | 1 | | 1 |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
@ -237,15 +239,15 @@ Comentários da tabela 8
e, finalmente, na tabela 9, a composição do rebanho no sexto ano após a implementeação e adoção do PRV na propriedade VITRUVIO.
#+name:Tab3_6
#+NAME:Tab3_6
#+caption: Composição do rebanho na fazenda VITRUVIO (ANO 6)
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 24 | 5 | 0 | 4 | 25 | 0 | 25 |
| # | VACAS >24 | 22 | 4 | 0 | 4 | 22 | 0 | 22 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 5 | 0 | 0 | 5 | 5 | 0 |
| # | 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 |
| # | Bezerras <12 | 0 | 15 | 0 | 11 | 4 | 4 | 0 |
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | | | |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
@ -261,47 +263,52 @@ Tabela com os dados resumidos referente aos animais existentes anualmente
Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de acordo com os dados da tabela de dados.
** Entradas e saídas
| | Ano | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 |
#+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 | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 |
|---+--------------------+------+------+------+------+------+------|
| # | 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 | 20 | 0 |
| # | Total entradas | 20 | 0 | 0 | 0 | 0 | 0 |
|---+--------------------+------+------+------+------+------+------|
| # | Vacas saídas | 0 | 0 | 0 | 0 | 5 | 4 |
| # | Vacas saídas | 0 | 0 | 0 | 2 | 5 | 4 |
| # | Novilhas saídas | 0 | 0 | 0 | 0 | 0 | 0 |
| # | Terneiras saídas | 0 | 4 | 10 | 12 | 12 | 14 |
| # | Terneiras saídas | 0 | 4 | 10 | 11 | 11 | 11 |
|---+--------------------+------+------+------+------+------+------|
| # | Total saídas | 0 | 4 | 10 | 12 | 17 | 18 |
| # | Total saídas | 0 | 4 | 10 | 13 | 16 | 15 |
| # | | | | | | | |
|---+--------------------+------+------+------+------+------+------|
| | | | | | | | |
#+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$3+@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
#+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
** Animais existentes
#+NAME:TABELA4
#+CAPTION: Resumo da evolução do rebanho (Animais existentes anualmente) nos primeiros anos do projeto
:PROPERTIES:
:TABLE_EXPORT_FILE: data/Tabela4.csv
:TABLE_EXPORT_FILE: ~/Documentos/GITs/Compos_rebanho/data/ResumoEvolucapVitruvio.csv
:TABLE_EXPORT_FORMAT: orgtbl-to-csv
:END:
| | Categoria | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 |
|---+-----------+------+------+-------+------+------+-------|
| # | Vacas | 0 | 20 | 20 | 24 | 24 | 25 |
| # | Novilhas | 20 | 0 | 4 | 5 | 5 | 5 |
| # | Terneiras | 0 | 4 | 5 | 5 | 5 | 4 |
|---+-----------+------+------+-------+------+------+-------|
| # | T_cab | 20 | 24 | 29 | 34 | 34 | 34 |
| # | T_UGMs | 20. | 21. | 25.25 | 30.5 | 31.5 | 31.75 |
| # | | | | | | | |
#+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,@3$2)+@4$3*remote(tab1,@4$2))::@6$4=(@2$4*remote(Tab1,@2$2)+@3$4*remote(tab1,@3$2)+@4$4*remote(tab1,@4$2))::@6$5=(@2$5*remote(Tab1,@2$2)+@3$5*remote(tab1,@3$2)+@4$5*remote(tab1,@4$2))::@6$6=(@2$6*remote(Tab1,@2$2)+@3$6*remote(tab1,@3$2)+@4$6*remote(tab1,@4$2))::@6$7=(@2$7*remote(Tab1,@2$2)+@3$7*remote(tab1,@3$2)+@4$7*remote(tab1,@4$2))::@6$8=(@2$8*remote(Tab1,@2$2)+@3$8*remote(tab1,@3$2)+@4$8*remote(tab1,@4$2))
| | Categoria | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 |
|---+-----------+------+------+-------+-------+------+------|
| # | Vacas | 0 | 20 | 20 | 22 | 22 | 22 |
| # | Novilhas | 20 | 0 | 4 | 5 | 4 | 4 |
| # | Terneiras | 0 | 4 | 5 | 4 | 4 | 4 |
|---+-----------+------+------+-------+-------+------+------|
| # | T_cab | 20 | 24 | 29 | 31 | 30 | 30 |
| # | T_UGMs | 15. | 21. | 24.25 | 26.75 | 26. | 26. |
| # | | | | | | | |
#+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))
* TODO Resolver exportar ou criar data.tabela. Para continuar, é necessário exportar a Tabela acima. Faço pelo menu Table - Export to file. Nome do Arquivo a exportar = Tabela$.csv.>>
** Gráfico resumo
#+NAME: Ler data.table Resumo
#+begin_src R
#+begin_src R :exports results
library(data.table)
library(tidyr)
library(dplyr)
@ -313,27 +320,22 @@ REV<-fread("~/Documentos/GITs/Compos_rebanho/data/ResumoEvolucaoVitruvio.csv",
values_drop_na = TRUE )
REv$Ano=as.numeric(REv$Ano)
View(REv)
#View(REv)
#end_src
#+NAME: grafico resumo
#+begin_src R
#+begin_src R :grafResum.png :results graphics file
library (ggplot2)
test1<-ggplot(REv, aes(Ano,
ResEvolVit<-ggplot(REv, aes(Ano,
Quantidade,
colour=Categoria))+
geom_line()
test1
ggsave("ResEvolVit.png", ResEvolVit, path="~/Documentos/GITs/Compos_rebanho/data/", width=7, height=3, units="in")
#+end_src
#+RESULTS: Ler data.table Resumo
: tibble [36 × 3] (S3: tbl_df/tbl/data.frame)
: $ Categoria : chr [1:36] "Vacas" "Vacas" "Vacas" "Vacas" ...
: $ Ano : num [1:36] 2004 2005 2006 2007 2008 ...
: $ Quantidade: num [1:36] 0 20 20 24 24 25 20 0 4 5 ...
: Warning message:
: Removed 6 rows containing missing values
: (`geom_line()`).
: Erro: unexpected string constant em "ggsave(ResEvolVit.pdf" ResEvolVit, path=""
**

BIN
data/ResEvolVit.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 93 KiB

10
data/ResumoEntraSaiVitruvio.csv Normal file
View File

@ -0,0 +1,10 @@
Categoria,2004,2005,2006,2007,2008,2009
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,2,5,4
Novilhas saídas,0,0,0,0,0,0
Terneiras saídas,0,4,10,11,11,11
Total saídas,0,4,10,13,16,15
,,,,,,
1 Categoria 2004 2005 2006 2007 2008 2009
2 Vacas entradas 0 0 0 0 0 0
3 Novilhas entradas 20 0 0 0 0 0
4 Terneiras entradas 0 0 0 0 0 0
5 Total entradas 20 0 0 0 0 0
6 Vacas saídas 0 0 0 2 5 4
7 Novilhas saídas 0 0 0 0 0 0
8 Terneiras saídas 0 4 10 11 11 11
9 Total saídas 0 4 10 13 16 15
10

9
data/ResumoEntraSaiVitruvio.csv~ Normal file
View File

@ -0,0 +1,9 @@
Categoria,2004,2005,2006,2007,2008,2009
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,5,4
Novilhas saídas,0,0,0,0,0,0
Terneiras saídas,0,4,10,12,12,14
Total saídas,0,4,10,12,17,18

10
data/ResumoEvolucaoVitruvio.csv
View File

@ -1,7 +1,7 @@
Categoria,2004,2005,2006,2007,2008,2009
Vacas,0,20,20,24,24,25
Novilhas,20,0,4,5,5,5
Terneiras,0,4,5,5,5,4
T_cab,20,24,29,34,34,34
T_UGMs,20.,21.,25.25,30.5,31.5,31.75
Vacas,0,20,20,22,22,22
Novilhas,20,0,4,5,4,4
Terneiras,0,4,5,4,4,4
T_cab,20,24,29,31,30,30
T_UGMs,15.,21.,24.25,26.75,26.,26.
,,,,,,

1 Categoria 2004 2005 2006 2007 2008 2009
2 Vacas 0 20 20 24 22 24 22 25 22
3 Novilhas 20 0 4 5 5 4 5 4
4 Terneiras 0 4 5 5 4 5 4 4
5 T_cab 20 24 29 34 31 34 30 34 30
6 T_UGMs 20. 15. 21. 25.25 24.25 30.5 26.75 31.5 26. 31.75 26.
7

8
data/composicao.csv Normal file
View File

@ -0,0 +1,8 @@
Categoria de animais,Cabeças,%cab%,UGM,%UGM
Vacas em lactação,20,60.6,20,75.0
Vacas secas,2,6.7,2,7.8
Bezerras ate 12 meses,4,13.3,1.,3.9
Novilhas até 18 meses,2,6.7,1.,3.9
Novilhas até 24 meses,2,6.7,1.5,5.9
Outros animais,,0.0,0,0.0
Total,30,100.0,25.5,100.0
1 Categoria de animais Cabeças %cab% UGM %UGM
2 Vacas em lactação 20 60.6 20 75.0
3 Vacas secas 2 6.7 2 7.8
4 Bezerras ate 12 meses 4 13.3 1. 3.9
5 Novilhas até 18 meses 2 6.7 1. 3.9
6 Novilhas até 24 meses 2 6.7 1.5 5.9
7 Outros animais 0.0 0 0.0
8 Total 30 100.0 25.5 100.0

124
doc/#EvolucaoTexto.org# Normal file
View File

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

1
doc/.#EvolucaoTexto.org Symbolic link
View File

@ -0,0 +1 @@
adenor@adenor-550XDA.6318:1698059404

170
doc/EvolucaoTexto.html Normal file
View File

@ -0,0 +1,170 @@
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1" />
<title>Evolução de rebanho leiteiro em PRV</title>
<meta name="author" content="Adenor Wendling" />
<meta name="generator" content="Org Mode" />
<link rel="stylesheet" type="text/css" href="https://fniessen.github.io/org-html-themes/src/readtheorg_theme/css/htmlize.css"/>
<link rel="stylesheet" type="text/css" href="https://fniessen.github.io/org-html-themes/src/readtheorg_theme/css/readtheorg.css"/>
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.3/jquery.min.js"></script>
<script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.4/js/bootstrap.min.js"></script>
<script type="text/javascript" src="https://fniessen.github.io/org-html-themes/src/lib/js/jquery.stickytableheaders.min.js"></script>
<script type="text/javascript" src="https://fniessen.github.io/org-html-themes/src/readtheorg_theme/js/readtheorg.js"></script>
<style> #content{max-width:1800px;}</style>
<style> p{max-width:800px;}</style>
<style> li{max-width:800px;}</style>
<style> pre.src{background: #f5f5f5;color:black;}</style>
</head>
<body>
<div id="content" class="content">
<h1 class="title">Evolução de rebanho leiteiro em PRV</h1>
<div id="table-of-contents" role="doc-toc">
<h2>Table of Contents</h2>
<div id="text-table-of-contents" role="doc-toc">
<ul>
<li><a href="#org2c00a6a">1. Composição e evolução do rebanho</a>
<ul>
<li><a href="#org0e1dcb4">1.1. Composição inicial</a></li>
<li><a href="#orgd162f37">1.2. Evolução</a></li>
<li><a href="#org6d4156d">1.3. Entradas e saídas de animais</a></li>
</ul>
</li>
</ul>
</div>
</div>
<hr />
<div id="outline-container-org2c00a6a" class="outline-2">
<h2 id="org2c00a6a"><span class="section-number-2">1.</span> Composição e evolução do rebanho</h2>
<div class="outline-text-2" id="text-1">
<p>
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 <b>vacas em lactação</b>. 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.
</p>
<table id="orgc1e6145" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<caption class="t-above"><span class="table-number">Table 1:</span> UGM de referência de acordo com a categoria animal</caption>
<colgroup>
<col class="org-left" />
<col class="org-right" />
</colgroup>
<thead>
<tr>
<th scope="col" class="org-left">Cataegoria animal</th>
<th scope="col" class="org-right">UGM</th>
</tr>
</thead>
<tbody>
<tr>
<td class="org-left">Vacas em lactação</td>
<td class="org-right">1</td>
</tr>
<tr>
<td class="org-left">Vacas secas</td>
<td class="org-right">1</td>
</tr>
<tr>
<td class="org-left">Bezerras até 12 meses</td>
<td class="org-right">0.25</td>
</tr>
<tr>
<td class="org-left">Novilhas até 18 meses</td>
<td class="org-right">0.75</td>
</tr>
<tr>
<td class="org-left">Novilhas até 24 meses</td>
<td class="org-right">0.75</td>
</tr>
<tr>
<td class="org-left">Outros</td>
<td class="org-right">1</td>
</tr>
</tbody>
</table>
<p>
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):
</p>
<p>
;#+NAME: Composicao
</p>
<p>
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.
</p>
</div>
<div id="outline-container-org0e1dcb4" class="outline-3">
<h3 id="org0e1dcb4"><span class="section-number-3">1.1.</span> Composição inicial</h3>
<div class="outline-text-3" id="text-1-1">
<p>
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.
</p>
</div>
</div>
<div id="outline-container-orgd162f37" class="outline-3">
<h3 id="orgd162f37"><span class="section-number-3">1.2.</span> Evolução</h3>
<div class="outline-text-3" id="text-1-2">
<p>
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
</p>
<p>
Também podemos observar a evolução do rebanho em formato de figura.
</p>
<p>
[[<img src="file:///home/adenor/Documentos/GITs/Compos_rebanho/data/ResEvolVit.png" alt="ResEvolVit.png" />][Figura 1 - Evolução do rebanho em forma de gráfico]
</p>
</div>
</div>
<div id="outline-container-org6d4156d" class="outline-3">
<h3 id="org6d4156d"><span class="section-number-3">1.3.</span> Entradas e saídas de animais</h3>
<div class="outline-text-3" id="text-1-3">
<p>
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.
</p>
<pre class="example" id="orgb901f36">
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 0 0
5: Vacas saídas 0 0 0 2 5 4
6: Novilhas saídas 0 0 0 0 0 0
7: Terneiras saídas 0 4 10 11 11 11
8: Total saídas 0 4 10 13 16 15
9: NA NA NA NA NA NA
</pre>
</div>
</div>
</div>
</div>
<div id="postamble" class="status">
<p class="date">Date: 10-23-2023</p>
<p class="author">Author: Adenor Wendling</p>
<p class="validation"><a href="https://validator.w3.org/check?uri=referer">Validate</a></p>
</div>
</body>
</html>

168
doc/EvolucaoTexto.html~ Normal file
View File

@ -0,0 +1,168 @@
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1" />
<title>Evolução de rebanho leiteiro em PRV</title>
<meta name="author" content="Adenor Wendling" />
<meta name="generator" content="Org Mode" />
<link rel="stylesheet" type="text/css" href="https://fniessen.github.io/org-html-themes/src/readtheorg_theme/css/htmlize.css"/>
<link rel="stylesheet" type="text/css" href="https://fniessen.github.io/org-html-themes/src/readtheorg_theme/css/readtheorg.css"/>
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.3/jquery.min.js"></script>
<script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.4/js/bootstrap.min.js"></script>
<script type="text/javascript" src="https://fniessen.github.io/org-html-themes/src/lib/js/jquery.stickytableheaders.min.js"></script>
<script type="text/javascript" src="https://fniessen.github.io/org-html-themes/src/readtheorg_theme/js/readtheorg.js"></script>
<style> #content{max-width:1800px;}</style>
<style> p{max-width:800px;}</style>
<style> li{max-width:800px;}</style>
<style> pre.src{background: #f5f5f5;color:black;}</style>
</head>
<body>
<div id="content" class="content">
<h1 class="title">Evolução de rebanho leiteiro em PRV</h1>
<div id="table-of-contents" role="doc-toc">
<h2>Table of Contents</h2>
<div id="text-table-of-contents" role="doc-toc">
<ul>
<li><a href="#orgfc1e847">1. Composição e evolução do rebanho</a>
<ul>
<li><a href="#orgfacfd3b">1.1. Composição inicial</a></li>
<li><a href="#org027e11e">1.2. Evolução</a></li>
<li><a href="#org188afe8">1.3. Entradas e saídas de animais</a></li>
</ul>
</li>
</ul>
</div>
</div>
<div id="outline-container-orgfc1e847" class="outline-2">
<h2 id="orgfc1e847"><span class="section-number-2">1.</span> Composição e evolução do rebanho</h2>
<div class="outline-text-2" id="text-1">
<p>
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 <b>vacas em lactação</b>. 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.
</p>
<table id="org6fb45b5" border="2" cellspacing="0" cellpadding="6" rules="groups" frame="hsides">
<caption class="t-above"><span class="table-number">Table 1:</span> UGM de referência de acordo com a categoria animal</caption>
<colgroup>
<col class="org-left" />
<col class="org-right" />
</colgroup>
<thead>
<tr>
<th scope="col" class="org-left">Cataegoria animal</th>
<th scope="col" class="org-right">UGM</th>
</tr>
</thead>
<tbody>
<tr>
<td class="org-left">Vacas em lactação</td>
<td class="org-right">1</td>
</tr>
<tr>
<td class="org-left">Vacas secas</td>
<td class="org-right">1</td>
</tr>
<tr>
<td class="org-left">Bezerras até 12 meses</td>
<td class="org-right">0.25</td>
</tr>
<tr>
<td class="org-left">Novilhas até 18 meses</td>
<td class="org-right">0.75</td>
</tr>
<tr>
<td class="org-left">Novilhas até 24 meses</td>
<td class="org-right">0.75</td>
</tr>
<tr>
<td class="org-left">Outros</td>
<td class="org-right">1</td>
</tr>
</tbody>
</table>
<p>
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):
</p>
<p>
;#+NAME: Composicao
</p>
<p>
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.
</p>
</div>
<div id="outline-container-orgfacfd3b" class="outline-3">
<h3 id="orgfacfd3b"><span class="section-number-3">1.1.</span> Composição inicial</h3>
<div class="outline-text-3" id="text-1-1">
<p>
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.
</p>
</div>
</div>
<div id="outline-container-org027e11e" class="outline-3">
<h3 id="org027e11e"><span class="section-number-3">1.2.</span> Evolução</h3>
<div class="outline-text-3" id="text-1-2">
<p>
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
</p>
<p>
Também podemos observar a evolução do rebanho em formato de figura.
</p>
<p>
[[<img src="file:///home/adenor/Documentos/GITs/Compos_rebanho/data/ResEvolVit.png" alt="ResEvolVit.png" />][Figura 1 - Evolução do rebanho em forma de gráfico]
</p>
</div>
</div>
<div id="outline-container-org188afe8" class="outline-3">
<h3 id="org188afe8"><span class="section-number-3">1.3.</span> Entradas e saídas de animais</h3>
<div class="outline-text-3" id="text-1-3">
<p>
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.
</p>
<pre class="example" id="orgd7fd852">
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 0 0
5: Vacas saídas 0 0 0 2 5 4
6: Novilhas saídas 0 0 0 0 0 0
7: Terneiras saídas 0 4 10 11 11 11
8: Total saídas 0 4 10 13 16 15
9: NA NA NA NA NA NA
</pre>
</div>
</div>
</div>
</div>
<div id="postamble" class="status">
<p class="date">Date: 10-23-2023</p>
<p class="author">Author: Adenor Wendling</p>
<p class="validation"><a href="https://validator.w3.org/check?uri=referer">Validate</a></p>
</div>
</body>
</html>

121
doc/EvolucaoTexto.org Normal file
View File

@ -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

49
doc/EvolucaoTexto.org~ Normal file
View File

@ -0,0 +1,49 @@
#+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 *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>
* 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.50 |
| 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 afetar-la, mas teremos como foco alcançar a seguinte composição (Tabela 2):
#+Caption: Composição ideal em porcentagem , número de animais e UGM, com base em 10 vacas em lactação.
#+NAME: C_ideal
| | Categoria de animais | Cabeças | %cab% | UGM | %UGM |
|---+-----------------------+---------+-------+------+-------|
| # | Vacas em lactação | 19 | 57.6 | 18 | 75.0 |
| # | Vacas secas | 2 | 9.5 | 2 | 12.1 |
| # | Bezerras ate 12 meses | 10 | 30.3 | 2.5 | 10.4 |
| # | Novilhas até 18 meses | 3 | 9.1 | 1.5 | 6.2 |
| # | Novilhas até 24 meses | 0 | 0.0 | 0. | 0.0 |
| # | Outros animais | | 0.0 | 0 | 0.0 |
| # | Total | 33 | 100.0 | 24. | 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
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.