Evolução de rebanho leiteiro em PRV
Table of Contents
-
<<<<<<< HEAD
- 1. Indices
- 2. Resumo da evolução
- 3. 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.>>
- 4. TODO - Resolver exportação figura no arquivo html
- 5. Figuras (só para testar) =======
- 1. Indices
- 2. Resumo da evolução
- 3. 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.>>
- 4. TODO - Resolver exportação figura no arquivo html
- 5. Figuras (só para testar) >>>>>>> 1d4d4f8 (para discutir na reuniao)
#+TODO Continuar planilha #+startup 2023-08-02
Vou estudar o emacs calc, tentando elaborar uma planilha para evolução do
Vou utilizar os manuais on line https://orgmode.org/manual/Field-and-range-formulas.html e https://orgmode.org/org.html#Built_002din-Table-Editor
<<<<<<< HEAD1. Indices
=======1. Indices
>>>>>>> 1d4d4f8 (para discutir na reuniao)IP = intervalo entre partos (12 meses) (setq IP "12")
PP = primeiro parto (24 meses) (setq PP "24")
PL = PerÃodo de lactação (10 meses)(setq PL "10") <<<<<<< HEAD CL = capacidade de lotação (20UGM) (setq CL "20") IndMor = Indice de mortalidade de bezerras IRP = Índice de renovação do plantel - substituição de vacas velhas ou ruins ======= 'CL = capacidade de lotação (20UGM) (setq CL "20") 'IndMor = Indice de mortalidade de bezerras 'IRP = Ãndice de renovação do plantel - substituição de vacas velhas ou ruins >>>>>>> 1d4d4f8 (para discutir na reuniao)
Comnpisição ideal em número de animais por categoria:
<<<<<<< HEAD| Cataegoria animal | UGM | abrev |
|---|---|---|
| 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é 24 meses | 0.75 | No24 |
| Outros | 1 | Outr |
Os dados acima são padronizados, sendo que, por padrão, 1 UGM equivale a 500 kg de peso vivo. Desta forma, pode ser necessário ajustar as UGMs e acordo com o peso dos animais de cada fazenda.
| Categoria de animais | Cabeças | %cab% | UGM | %UGM |
|---|---|---|---|---|
| Vacas em lactação | 10 | 47.6 | 10 | 60.6 |
| Vacas secas | 2 | 9.5 | 2 | 12.1 |
| Bezerras ate 12 meses | 3 | 14.3 | 0.75 | 4.5 |
| Novilhas até 18 meses | 3 | 14.3 | 1.5 | 9.1 |
| Novilhas até 24 meses | 3 | 14.3 | 2.25 | 13.6 |
| Outros animais | 0.0 | 0 | 0.0 | |
| Total | 21 | 100.0 | 16.5 | 100.0 |
<<<<<<< HEAD A composição do rebanho é dinâmico, com perspectativa de crescimento anual, até alcançar o limite de capacidade de suporte das pastagens ou de outro limitante definido pela infraestrutura ou de trabalho da fazenda. A espectativa de crescimento se deve à previsão de 1 parto anual por vaca, que gera um incremento anual de 50% de fêmeas em relação ao número de vacas, e do descarte médio de 25% de vacas. Quando for atingido o limite de vacas na fazenda, pode-se vender o excedente de fêmeas em idade de terneiras, novilhas prenhas, ou vacas, de acordo com a conveniência da fazenda. Entretanto, a capacidade de suporte se dá em UGM, o que também vai limitar a opção pela venda de animais maiores. Com base nos índices definidos em conjunto com a fazenda, e as entradas e saídas programadas na tabela 3, estimamos que a evolução do rebanho possa ocorrer conforme a tabela 9, ressalvando que esses valores não são absolutos, pois podem ocorrer imprevistos que alterem a evolução. Da mesma forma, havendo alteração nos índices esperados,haverá impacto na evolução do rebanho, o que não caracteriza necessariamente erro de previsão ou de manejo. ======= A composição do rebanho é dinâmico, com espectativa de crescimento ao longo do tempo, até alcançar o limite de suporte das pastagens ou de outro limitante definido pela infraestrutura ou de trabalho da fazenda. A espectativa de crescimento se deve à previsão de 1 parto anual por vaca, que gera um incremento anual de 50% de fêmeas em relação ao número de vacas, e do descarte de 25% das vacas. Quando for atingido o limite de vacas na fazenda, pode-se vender o excedente de fêmeas em idade de terneiras, novilhas prenhas, ou vacas, de acordo com a conveniência da fazenda. Entretanto, o limite é medido em UGM, o que também vai limitar a opção pela venda de animais maiores. Com base nos índices definidos em conjunto com a fazenda, estimamos que a evolução do rebanho de apresente conforme a tabela 3, ressalvando que esses valores não são absolutos, pois podem ocorrer imprevistos que alterem a evolução. Da mesma forma, havendo alteração nos índices esperados, haverá impacto na evolução do rebanho, o que não caracteriza necessariamente erro de previsão ou de manejo. >>>>>>> 1d4d4f8 (para discutir na reuniao)
<<<<<<< HEAD1.1. Tabela 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 <Tab0tabela 3>.
| Constante | ano 1 | ano 2 | ano 3 | ano 4 | ano 5 | ano .. | observação | ||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Partos por vaca ano | 1 | 1 | 1 | 1 | 1 | 1 | |||||||||
| Vacas Existentes | 20 | - | - | - | - | - | <<<<<<< HEAD- na elaboração do projeto | =======- a calcular | >>>>>>> 1d4d4f8 (para discutir na reuniao)|||||||
| Novilhas (12 a 24) existentes | <<<<<<< HEAD0 | =======05 | >>>>>>> 1d4d4f8 (para discutir na reuniao)- | - | - | - | - | <<<<<<< HEAD- na elaboração do projeto | =======- a calcular | >>>>>>> 1d4d4f8 (para discutir na reuniao)||||||
| Bezerras existentes | 0 | - | - | - | - | - | <<<<<<< HEAD- na elaboração do projeto | =======- a calcular | >>>>>>> 1d4d4f8 (para discutir na reuniao)|||||||
| Novilhas para vacas | 0 | <<<<<<< HEAD5 | 0 | 0 | 0 | 0 | - Anual | =======0 | 5 | 5 | 7 | 7 | >>>>>>> 1d4d4f8 (para discutir na reuniao) | ||
| % Bezerras para novilhas | 0.4 | 0.4 | 0.4 | 0.4 | 0.4 | 0.4 | <<<<<<< HEAD- base no total nascidos | =======com base no total de nascidos | >>>>>>> 1d4d4f8 (para discutir na reuniao)|||||||
| Vacas a vender | 0 | 0 | 0 | 3 | <<<<<<< HEAD10 | 7 | - anual | =======3 | 5 | >>>>>>> 1d4d4f8 (para discutir na reuniao) | |||||
| Novilhas a vender (Num) | 0 | 0 | 0 | 0 | 7 | 7 | <<<<<<< HEAD- anual | =======>>>>>>> 1d4d4f8 (para discutir na reuniao) | |||||||
| Bezerras a vender | 0 | 0 | 1 | 1 | 1 | 1 | <<<<<<< HEAD- anual | =======>>>>>>> 1d4d4f8 (para discutir na reuniao) | |||||||
| Vacas a comprar | 0 | <<<<<<< HEAD0 | 0 | 0 | 0 | 0 | - anual | ||||||||
| Novilhas a comprar | ======= >>>>>>> 1d4d4f8 (para discutir na reuniao)5 | 0 | 0 | 0 | 0 | <<<<<<< HEAD0 | - anual | =======||||||||
| Novilhas a comprar | 2 | 0 | 0 | 0 | 0 | 0 | >>>>>>> 1d4d4f8 (para discutir na reuniao) | ||||||||
| Bezerras a compras | <<<<<<< HEAD0 | 0 | 0 | 0 | 0 | 0 | -anual | =======1 | 1 | 1 | 1 | 1 | 1 | >>>>>>> 1d4d4f8 (para discutir na reuniao) |
Com a evolução estimada através dos indicadores: . 1 parto por vaca por ano; . Primeiro parto aos 18 meses . Descarte de 25% das vacas a partir do 3º ano . Capacidade de suporte para 40 vacas . Aproveitamento de 40% dos nascidos para repsição Temos o seguinte: >> Iniciamos com 20 vacas <<<<<<< HEAD >> Compramos 5 novilhas cobertas
| Categoria | ExttAnt | TIR | Compra | Venda | Saldo | TIC | ExttFin | |||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| VACAS >24 | 20 | 0 | 0 | 0 | 20 | 0 | 20 | |||||||
| NOVILHAS 12<>24 | <<<<<<< HEAD0 | 0 | 5 | 0 | 5 | 0 | 5 | =======1 | 5 | 2 | 0 | 8 | 0 | 3 | >>>>>>> 1d4d4f8 (para discutir na reuniao)
| BEZERRAS <12 | <<<<<<< HEAD0 | 8 | 0 | 0 | 8 | 8 | =======2 | 8 | 0 | 0 | 10 | 10 | >>>>>>> 1d4d4f8 (para discutir na reuniao)0 | |
| Outros | 0 | 0 | 0 | 0 | 0 |
Na tabela 3.1 consta o número de animais para cada categoria, com as ocorrencias do ano. No caso das vacas, não há alteração, visto que não há entradas, nem saídas, e o número inicial é o mesmo do final. No caso das novilhas, há movimentação, com a transferência interna de 5 (que passam de bezerras para novilhas), compra de 2, e transferência cedendo 5 para serem vacas no próximo ano. Assim, o ano inicia com 1 novilha, e termina com 3.
<<<<<<< HEAD| CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| VACAS >24 | 20 | 0 | <<<<<<< HEAD0 | 0 | 20 | 0 | 20 | =======5 | 0 | 25 | 0 | 25 | >>>>>>> 1d4d4f8 (para discutir na reuniao)
| Novilhas 12<>24 | <<<<<<< HEAD5 | 8 | =======3 | 10 | >>>>>>> 1d4d4f8 (para discutir na reuniao)0 | 0 | 13 | 13 | 0 | |||
| Bezerras <12 | 0 | <<<<<<< HEAD8 | 0 | 0 | 8 | 8 | =======10 | 1 | 0 | 11 | 11 | >>>>>>> 1d4d4f8 (para discutir na reuniao)0 |
| outros | 1 | 1 | 1 |
1.2. Comentários sobre tabela acima
=======1.2. Comentários sobre tabela acima
>>>>>>> 1d4d4f8 (para discutir na reuniao)Na tabela 3.3 podemos observar…
<<<<<<< HEAD| CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| VACAS >24 | <<<<<<< HEAD20 | 13 | 0 | 0 | 33 | 0 | 33 | =======25 | 13 | 0 | 0 | 38 | 0 | 38 | >>>>>>> 1d4d4f8 (para discutir na reuniao)
| Novilhas 12<>24 | 0 | <<<<<<< HEAD8 | 0 | 0 | 8 | 8 | =======11 | 0 | 0 | 11 | 11 | >>>>>>> 1d4d4f8 (para discutir na reuniao)0 | ||
| Bezerras <12 | 0 | <<<<<<< HEAD13 | 0 | 1 | 12 | 12 | =======15 | 1 | 1 | 15 | 15 | >>>>>>> 1d4d4f8 (para discutir na reuniao)0 | ||
| outros | 1 | 1 | 1 |
1.3. Comentários da tabela acima
=======1.3. Comentários da tabela acima
>>>>>>> 1d4d4f8 (para discutir na reuniao)Na tabela 3.4 …
<<<<<<< HEAD| CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| VACAS >24 | <<<<<<< HEAD33 | 8 | 0 | 3 | 38 | 0 | 38 | =======38 | 11 | 0 | 3 | 46 | 0 | 46 | >>>>>>> 1d4d4f8 (para discutir na reuniao)
| Novilhas 12<>24 | 0 | <<<<<<< HEAD12 | 0 | 0 | 12 | 12 | =======15 | 0 | 0 | 15 | 15 | >>>>>>> 1d4d4f8 (para discutir na reuniao)0 | ||
| Bezerras <12 | 0 | <<<<<<< HEAD15 | 0 | 1 | 14 | 14 | =======18 | 1 | 1 | 18 | 18 | >>>>>>> 1d4d4f8 (para discutir na reuniao)0 | ||
| outros | 1 | 1 | 1 |
1.4. Comentários da tabela acima
=======1.4. Comentários da tabela acima
>>>>>>> 1d4d4f8 (para discutir na reuniao)na tabela 3.5
:TABLEEXPORTFILE: Documents/Tabela 3.5.csv :TABLEEXPORTFORMAT: orgtbl-to-csv
| CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| VACAS >24 | <<<<<<< HEAD38 | 12 | 0 | 10 | 40 | 0 | 40 | =======46 | 15 | 0 | 3 | 58 | 0 | 58 | >>>>>>> 1d4d4f8 (para discutir na reuniao)
| Novilhas 12<>24 | 0 | <<<<<<< HEAD14 | 0 | 7 | 7 | 7 | =======18 | 0 | 7 | 11 | 11 | >>>>>>> 1d4d4f8 (para discutir na reuniao)0 | ||
| Bezerras <12 | 0 | <<<<<<< HEAD16 | 0 | 1 | 15 | 15 | =======23 | 1 | 1 | 23 | 23 | >>>>>>> 1d4d4f8 (para discutir na reuniao)0 | ||
| outros | 1 | 1 | 1 | |||||||||||
e, finalmente, na tabela 3.6, a composição do rebanho no sexto ano após a implementeação e adoção do PRV na propriedade VITRUVIO.
<<<<<<< HEAD| CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN | |||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| VACAS >24 | <<<<<<< HEAD40 | 7 | 0 | 7 | 40 | 0 | 40 | =======58 | 11 | 0 | 5 | 64 | 0 | 64 | >>>>>>> 1d4d4f8 (para discutir na reuniao)
| Novilhas 12<>24 | 0 | <<<<<<< HEAD15 | 0 | 7 | 8 | 8 | =======23 | 0 | 7 | 16 | 16 | >>>>>>> 1d4d4f8 (para discutir na reuniao)0 | ||
| Bezerras <12 | 0 | <<<<<<< HEAD16 | 0 | 1 | 15 | 15 | =======26 | 1 | 1 | 26 | 26 | >>>>>>> 1d4d4f8 (para discutir na reuniao)0 | ||
| outros | 1 | 1 | 1 | |||||||||||
2. Resumo da evolução
=======2. Resumo da evolução
>>>>>>> 1d4d4f8 (para discutir na reuniao)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.
2.1. Tabela com os dados resumidos referente aos animais existentes anualmente
=======2.1. Tabela com os dados resumidos referente aos animais existentes anualmente
>>>>>>> 1d4d4f8 (para discutir na reuniao)Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de acordo com os dados da tabela de dados.
:TABLEEXPORTFILE: Documents/Tabela4.csv :TABLEEXPORTFORMAT: orgtbl-to-csv
| Ano | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 | ||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Vacas | 20 | <<<<<<< HEAD20 | 33 | 38 | 40 | 40 | =======25 | 38 | 46 | 58 | 64 | >>>>>>> 1d4d4f8 (para discutir na reuniao)|
| Novilhas | <<<<<<< HEAD5 | 13 | 8 | 12 | 7 | 8 | =======8 | 13 | 11 | 15 | 11 | 16 | >>>>>>> 1d4d4f8 (para discutir na reuniao)
| Terneiras | <<<<<<< HEAD8 | 8 | 12 | 14 | 15 | 15 | ||||||
| Total | 33 | 41 | 53 | 64 | 60 | 63 | =======10 | 11 | 15 | 18 | 23 | 26 | >>>>>>> 1d4d4f8 (para discutir na reuniao)
3. 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.>>
3.0.1. Importação dos dados dos animais existentes
library (data.table)
library(tidyr)
library(dplyr)
Evol_exist <- fread("data/Tabela4.csv", check.names =FALSE, header=TRUE)
str(Evol_exist)
=======
3. 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.>>
3.0.1. Importação dos dados dos animais existentes
getwd()
library (data.table)
Evol_exist <- fread("data/Tabela4.csv", check.names =FALSE, header=TRUE)
# str(Evol_exist)
>>>>>>> 1d4d4f8 (para discutir na reuniao)
#View(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)
<<<<<<< HEAD
Evoluc<-Evol_exist1%>%
pivot_longer(!variable, names_to="Categoria", values_to="Cabecas")%>%
dplyr::mutate(Ano=variable)
#View(Evoluc)
str(Evoluc)
=======
>>>>>>> 1d4d4f8 (para discutir na reuniao)
<<<<<<< HEAD
3.0.2. Gráfico da evolução do rebanho
3.1. Gráfico 1
library (ggplot2)
Evoluc<-ggplot(Evoluc, aes(x=Ano, y=Cabecas, group = Categoria))+
geom_line (aes(color=Categoria))+
geom_point(aes(color=Categoria))
Evoluc
=======
3.0.2. Gráfico da evolução do rebanho
3.1. Gráfico 1
#+BEGINsrc R
library (ggplot2)
ggplot(Evolexist1,
aes(x as.numeric(variable)))+
geom_line ( aes (y = Vacas),col"red")+
geomline (aes(y=Novilhas), col="blue")+
geomline (aes(y=Terneiras), col="green")
ENDsrc
>>>>>>> 1d4d4f8 (para discutir na reuniao)
<<<<<<< HEAD
4. TODO - Resolver exportação figura no arquivo html
5. Figuras (só para testar)
=======
4. TODO - Resolver exportação figura no arquivo html
4.1. Animais comprados
Vacas compradas
Novilhas compradas
as
Terneiras compradas
4.2. Animais vendidos
Vacas vendidas
Novilhas vendidas
Terneiras vendidas
5. Figuras (só para testar)
>>>>>>> 1d4d4f8 (para discutir na reuniao)
Exemplo 2
https://nuvem.multifarm.top/apps/files/?dir=/Photos&openfile=457851
Exemplo 3 -
<<<<<<< HEAD
#+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>
=======
https://nuvem.multifarm.top/apps/files/?dir=/Photos&openfile=457848
>>>>>>> 1d4d4f8 (para discutir na reuniao)
Date: 08-31-2023
<<<<<<< HEAD
Created: 2023-09-26 ter 20:42
=======
Created: 2023-09-20 qua 14:59
>>>>>>> 1d4d4f8 (para discutir na reuniao)