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
-
-
3. Relação UGM e categoria animal
+
+
3. Relação UGM e categoria animal
-
+
Table 1: UGM de referência de acordo com a categoria animal
@@ -169,15 +169,15 @@ Os dados acima são padronizados, sendo que, por padrão, 1 UGM equivale a 500 k
-
-
4. Composição do Rebanho
+
+
4. Composiçã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.
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.
-
+
Table 2: Composição ideal em porcentagem , número de animais e UGM, com base em 10 vacas em lactação.
@@ -276,14 +276,14 @@ haverá impacto na evolução do rebanho, o que não caracteriza necessariamente
-
-
5. Tabela inicial, com o dimensionamento atual e previsão de entradas e saídas de animais
+
+
5. 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>.
-
+
Table 3: Entradas e saídas de animais do rebanho durante os primeiros 6 anos (até estabilizar)
@@ -470,14 +470,14 @@ Temos o seguinte:
-
-
6. Composição anual do rebanho da fazenda
+
+
6. Composição anual do rebanho da fazenda
-
-
6.1. Ano 1
+
+
6.1. Ano 1
-
+
Table 4: Composição do rebanho na fazenda VITRUVIO (ANO 1)
@@ -564,10 +564,10 @@ Na tabela 4 consta o número de animais para cada categoria, com as ocorrencias
-
-
6.2. Ano 2
+
+
6.2. Ano 2
-
+
Table 5: Composição do rebanho na fazenda VITRUVIO (ANO 2)
@@ -651,13 +651,13 @@ Comentários sobre tabela 5
-
-
6.3. Ano 3
+
+
6.3. Ano 3
Na tabela 3.3 podemos observar…
-
+
Table 6: Composição do rebanho na fazenda VITRUVIO (ANO 3)
@@ -741,10 +741,10 @@ Comentários sobre a tabela 6
-
-
6.4. Ano 4
+
+
6.4. Ano 4
-
+
Table 7: Composição do rebanho na fazenda VITRUVIO (ANO 4)
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.
-
+
Table 8: Composição do rebanho na fazenda VITRUVIO (ANO 6)
@@ -1024,8 +1024,8 @@ e, finalmente, na tabela 9, a composição do rebanho no sexto ano após a imple
-
-
7. Resumo da evolução
+
+
7. Resumo da evolução
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
-
-
7.1. Entradas e saídas
+
+
7.1. Entradas e saídas
@@ -1168,8 +1168,8 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
-
-
7.2. Animais existentes
+
+
7.2. Animais existentes
:TABLEEXPORTFILE: data/Tabela4.csv
@@ -1274,44 +1274,18 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
-
-
8.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.>>
+
+
8.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.>>
IP = intervalo entre partos (12 meses) (setq IP "12")
@@ -117,10 +105,10 @@ IRP = Índice de renovação do plantel - substituição de vacas velhas
-
-
3. Relação UGM e categoria animal
+
+
3. Relação UGM e categoria animal
-
+
Table 1: UGM de referência de acordo com a categoria animal
@@ -181,15 +169,15 @@ Os dados acima são padronizados, sendo que, por padrão, 1 UGM equivale a 500 k
-
-
4. Composição do Rebanho
+
+
4. Composiçã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.
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.
-
+
Table 2: Composição ideal em porcentagem , número de animais e UGM, com base em 10 vacas em lactação.
@@ -215,10 +203,10 @@ Os dados da tabela 2 refletem a composição de um rebanho com finalidade de pro
Vacas em lactação
-
10
-
47.6
-
10
-
60.6
+
18
+
51.4
+
18
+
76.9
@@ -231,26 +219,26 @@ Os dados da tabela 2 refletem a composição de um rebanho com finalidade de pro
Bezerras ate 12 meses
-
3
-
14.3
-
0.75
-
4.5
+
10
+
32.3
+
2.5
+
2.8
Novilhas até 18 meses
3
-
14.3
-
1.5
9.1
+
1.5
+
6.2
Novilhas até 24 meses
-
3
-
14.3
-
2.25
-
13.6
+
0
+
0.0
+
0.
+
0.0
@@ -263,9 +251,9 @@ Os dados da tabela 2 refletem a composição de um rebanho com finalidade de pro
Total
-
21
+
33
100.0
-
16.5
+
24.
100.0
@@ -288,14 +276,14 @@ haverá impacto na evolução do rebanho, o que não caracteriza necessariamente
-
-
5. Tabela inicial, com o dimensionamento atual e previsão de entradas e saídas de animais
+
+
5. 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>.
-
+
Table 3: Entradas e saídas de animais do rebanho durante os primeiros 6 anos (até estabilizar)
@@ -342,7 +330,7 @@ As tabelas de composição de rebanho serão calculadas automáticamente, com ba
Vacas Existentes
-
20
+
00
-
-
-
@@ -353,7 +341,7 @@ As tabelas de composição de rebanho serão calculadas automáticamente, com ba
Novilhas exist.
-
05
+
00
-
-
-
@@ -389,10 +377,10 @@ As tabelas de composição de rebanho serão calculadas automáticamente, com ba
% Bezerras -> novilhas
0.4
0.4
-
0.4
-
0.4
-
0.4
-
0.4
+
0.75
+
0.7
+
0.7
+
0.7
% SNascidos
@@ -402,9 +390,9 @@ As tabelas de composição de rebanho serão calculadas automáticamente, com ba
0
0
0
-
6
-
14
-
9
+
0
+
5
+
4
@@ -414,19 +402,19 @@ As tabelas de composição de rebanho serão calculadas automáticamente, com ba
0
0
0
-
7
-
8
+
0
+
0
Bezerras a vender
0
-
0
-
0
-
0
-
0
-
0
+
4
+
10
+
12
+
15
+
14
@@ -444,7 +432,7 @@ As tabelas de composição de rebanho serão calculadas automáticamente, com ba
Novilhas a comprar
-
2
+
20
0
0
0
@@ -482,14 +470,14 @@ Temos o seguinte:
-
-
6. Composição anual do rebanho da fazenda
+
+
6. Composição anual do rebanho da fazenda
-
-
6.1. Ano 1
+
+
6.1. Ano 1
-
+
Table 4: Composição do rebanho na fazenda VITRUVIO (ANO 1)
@@ -524,34 +512,34 @@ Temos o seguinte:
VACAS >24
-
20
0
0
0
-
20
0
-
20
+
0
+
0
+
0
NOVILHAS 12<>24
-
5
0
-
2
0
-
7
-
7
+
20
+
0
+
20
+
20
0
BEZERRAS <12
0
-
8
0
0
-
8
-
8
+
0
+
0
+
0
0
@@ -576,10 +564,10 @@ Na tabela 4 consta o número de animais para cada categoria, com as ocorrencias
-
-
6.2. Ano 2
+
+
6.2. Ano 2
-
+
Table 5: Composição do rebanho na fazenda VITRUVIO (ANO 2)
@@ -614,46 +602,46 @@ Na tabela 4 consta o número de animais para cada categoria, com as ocorrencias
VACAS >24
+
0
20
-
7
0
0
-
27
+
20
0
-
27
+
20
Novilhas 12<>24
0
-
8
0
0
-
8
-
8
+
0
+
0
+
0
0
Bezerras <12
0
-
11
+
8
0
-
0
-
11
-
11
+
4
+
4
+
4
0
outros
-
1
-
1
-
1
+
+
+
@@ -663,13 +651,13 @@ Comentários sobre tabela 5
-
-
6.3. Ano 3
+
+
6.3. Ano 3
Na tabela 3.3 podemos observar…
-
+
Table 6: Composição do rebanho na fazenda VITRUVIO (ANO 3)
@@ -704,46 +692,46 @@ Na tabela 3.3 podemos observar…
VACAS >24
-
27
-
8
+
20
0
0
-
35
0
-
35
+
20
+
0
+
20
Novilhas 12<>24
0
-
11
+
4
0
0
-
11
-
11
+
4
+
4
0
Bezerras <12
0
-
14
+
15
0
-
0
-
14
-
14
+
10
+
5
+
5
0
outros
-
1
-
1
-
1
+
+
+
@@ -753,10 +741,10 @@ Comentários sobre a tabela 6
-
-
6.4. Ano 4
+
+
6.4. Ano 4
-
+
Table 7: Composição do rebanho na fazenda VITRUVIO (ANO 4)
@@ -791,34 +779,34 @@ Comentários sobre a tabela 6
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.
-
+
Table 8: Composição do rebanho na fazenda VITRUVIO (ANO 6)
@@ -987,34 +975,34 @@ e, finalmente, na tabela 9, a composição do rebanho no sexto ano após a imple
VACAS >24
-
40
-
9
+
24
+
5
0
-
9
-
40
+
4
+
25
0
-
40
+
25
Novilhas 12<>24
0
-
16
+
5
0
-
8
-
8
-
8
+
0
+
5
+
5
0
Bezerras <12
0
-
16
+
18
0
-
0
-
16
-
16
+
14
+
4
+
4
0
@@ -1024,9 +1012,9 @@ e, finalmente, na tabela 9, a composição do rebanho no sexto ano após a imple
-
1
-
1
+
+
@@ -1036,8 +1024,8 @@ e, finalmente, na tabela 9, a composição do rebanho no sexto ano após a imple
-
-
7. Resumo da evolução
+
+
7. Resumo da evolução
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.
@@ -1049,8 +1037,8 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
-
-
7.1. Entradas e saídas
+
+
7.1. Entradas e saídas
@@ -1094,7 +1082,7 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
Novilhas entradas
-
2
+
20
0
0
0
@@ -1115,11 +1103,11 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
Total entradas
-
2
+
20
0
0
0
-
2
+
20
0
@@ -1129,9 +1117,9 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
0
0
0
-
6
-
14
-
9
+
0
+
5
+
4
@@ -1140,29 +1128,29 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
0
0
0
-
7
-
8
+
0
+
0
Terneiras saídas
0
-
0
-
0
-
0
-
0
-
0
+
4
+
10
+
12
+
12
+
14
Total saídas
0
-
0
-
0
-
6
-
14
+
4
+
10
+
12
17
+
18
@@ -1180,8 +1168,8 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
-
-
7.2. Animais existentes
+
+
7.2. Animais existentes
:TABLEEXPORTFILE: data/Tabela4.csv
@@ -1207,7 +1195,7 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
-
Ano
+
Categoria
2004
2005
2006
@@ -1219,43 +1207,53 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
Vacas
+
0
20
-
27
-
35
-
40
-
40
-
40
+
20
+
24
+
24
+
25
Novilhas
-
7
-
8
-
11
-
14
-
9
-
8
+
20
+
0
+
4
+
5
+
5
+
5
Terneiras
-
8
-
11
-
14
-
16
-
16
-
16
+
0
+
4
+
5
+
5
+
5
+
4
-
Total
-
35
-
46
-
60
-
70
-
63
-
64
+
Tcab
+
20
+
24
+
29
+
34
+
34
+
34
+
+
+
+
TUGMs
+
20.
+
21.
+
25.25
+
30.5
+
31.5
+
31.75
@@ -1269,245 +1267,52 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
8.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.>>
+
+
8.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.>>
-
-
8.0.1. Importação dos dados dos animais existentes
Evol_exist <- fread("data/Tabela4.csv", check.names =FALSE, header=TRUE)
- str(Evol_exist)
-
-#Transpor a tabela
-Evol_exist1<-dcast(melt(Evol_exist, id.vars="Ano"),variable ~Ano)
-# deu um trabalho para n ão aparecer uma linha nova com os nomes da colunas...
-str(Evol_exist1)
-Evoluc<-Evol_exist1%>%
- pivot_longer(!variable, names_to="Categoria", values_to="Cabecas")%>%
- dplyr::mutate(Ano=variable)
-#View(Evoluc)
-str(Evoluc)
-
-
-
-
-
-Classes ‘data.table’ and 'data.frame': 5 obs. of 7 variables:
- $ Ano : chr "Vacas" "Novilhas" "Terneiras" "Total" ...
- $ 2004: int 20 7 8 35 NA
- $ 2005: int 27 8 11 46 NA
- $ 2006: int 35 11 14 60 NA
- $ 2007: int 40 14 16 70 NA
- $ 2008: int 40 9 16 63 NA
- $ 2009: int 40 8 16 64 NA
- - attr(*, ".internal.selfref")=<externalptr>
-Classes ‘data.table’ and 'data.frame': 6 obs. of 6 variables:
- $ variable : Factor w/ 6 levels "2004","2005",..: 1 2 3 4 5 6
- $ V1 : int NA NA NA NA NA NA
- $ Novilhas : int 7 8 11 14 9 8
- $ Terneiras: int 8 11 14 16 16 16
- $ Total : int 35 46 60 70 63 64
- $ Vacas : int 20 27 35 40 40 40
- - attr(*, ".internal.selfref")=<externalptr>
- - attr(*, "sorted")= chr "variable"
-tibble [30 × 4] (S3: tbl_df/tbl/data.frame)
- $ variable : Factor w/ 6 levels "2004","2005",..: 1 1 1 1 1 2 2 2 2 2 ...
- $ Categoria: chr [1:30] "V1" "Novilhas" "Terneiras" "Total" ...
- $ Cabecas : int [1:30] NA 7 8 35 20 NA 8 11 46 27 ...
- $ Ano : Factor w/ 6 levels "2004","2005",..: 1 1 1 1 1 2 2 2 2 2 ...
-
-Exemplo 3 -
-#+beginexport html
-<div id="subtittle" style="float: center; text-aling:center;">
-<p>
-<font size="1"> Composição do rebanho. Nes propriedade, os animais são divididos em dois lotes para o pastoreio.</font>
-</p>
-<p>
-<a href="http://multifarm.top">
-<img src= "https://nuvem.multifarm.top/apps/files/?dir=/Photos&openfile=457848" width = "250"/>
-</a>
-</p>
-</div>
-#+endexport>
-
+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.
+
+
+
Table 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
+
+
+
+
+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
+
+
+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.
+
+
+
+
+
1.1. 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.
+
+
+
+
+
1.2. 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
+
+
+Também podemos observar a evolução do rebanho em formato de figura.
+
+
+
+[[][Figura 1 - Evolução do rebanho em forma de gráfico]
+
+
+
+
+
+
+
1.3. 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.
+
+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.
+
+
+
Table 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
+
+
+
+
+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
+
+
+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.
+
+
+
+
+
1.1. 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.
+
+
+
+
+
1.2. 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
+
+
+Também podemos observar a evolução do rebanho em formato de figura.
+
+
+
+[[][Figura 1 - Evolução do rebanho em forma de gráfico]
+
+
+
+
+
+
+
1.3. 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.
+
+
+
diff --git a/doc/EvolucaoTexto.org b/doc/EvolucaoTexto.org
new file mode 100644
index 0000000..381aea4
--- /dev/null
+++ b/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:
+#+HTML_HEAD:
+#+HTML_HEAD:
+#+HTML_HEAD:
+#+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
diff --git a/doc/EvolucaoTexto.org~ b/doc/EvolucaoTexto.org~
new file mode 100644
index 0000000..27698f8
--- /dev/null
+++ b/doc/EvolucaoTexto.org~
@@ -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:
+#+HTML_HEAD:
+#+HTML_HEAD:
+#+HTML_HEAD:
+
+* 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.