@@ -1286,22 +1665,40 @@ 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
@@ -1319,10 +1716,36 @@ str(Evoluc)
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)
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
@@ -1341,6 +1977,7 @@ Exemplo 2
Exemplo 3 -
+<<<<<<< HEAD
#+beginexport html
<div id="subtittle" style="float: center; text-aling:center;">
<p>
@@ -1353,6 +1990,11 @@ Exemplo 3 -
</p>
</div>
#+endexport>
+=======
+
+
+https://nuvem.multifarm.top/apps/files/?dir=/Photos&openfile=457848
+>>>>>>> 1d4d4f8 (para discutir na reuniao)
@@ -1360,7 +2002,11 @@ Exemplo 3 -
Date: 08-31-2023
Author: Adenor Wendling
+<<<<<<< HEAD
Created: 2023-09-26 ter 20:42
+=======
+
Created: 2023-09-20 qua 14:59
+>>>>>>> 1d4d4f8 (para discutir na reuniao)
Validate
diff --git a/Evolucao.org b/Evolucao.org
index 7ecec8a..41185a9 100644
--- a/Evolucao.org
+++ b/Evolucao.org
@@ -7,11 +7,14 @@
#+TAGS: tabelas, org-mode, composição ideal
#+share: false
#+DRAFT: true
+<<<<<<< HEAD
#+SETUPFIL: https://fniessen.github.io/org-html-themes/org/theme-readtheorg.setup
#+HTML_HEAD:
#+HTML_HEAD:
#+HTML_HEAD:
#+HTML_HEAD:
+=======
+>>>>>>> 1d4d4f8 (para discutir na reuniao)
#+TODO
@@ -31,9 +34,15 @@ 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:
@@ -66,6 +75,7 @@ Os dados acima são padronizados, sendo que, por padrão, 1 UGM equivale a 500 k
#+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
+<<<<<<< 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,
@@ -110,6 +120,55 @@ As tabelas de composição de rebanho serão calculadas automáticamente, com ba
| | Bezerras a compras | 0 | 0 | 0 | 0 | 0 | 0 | -anual | |
| ^ | | BC1 | BC2 | BC3 | BC4 | BC5 | BC6 | | |
|---+-------------------------------+-------+-------+-------+-------+-------+--------+----------------------------+---|
+=======
+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.
+
+
+
+** Tabela Basede Constantes
+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
.
+#+Caption: Entradas e saídas de animais do rebanho durante os primeiros 6 anos (até estabilizar)
+#+NAME:Tab0
+| | Constante | ano 1 | ano 2 | ano 3 | ano 4 | ano 5 | ano .. | observação | |
+|---+-------------------------------+-------+-------+-------+-------+-------+--------+-------------------------------+---|
+| | Partos por vaca ano | 1 | 1 | 1 | 1 | 1 | 1 | | |
+| ^ | | PV1 | PV2 | PV3 | PV4 | PV5 | PV6 | | |
+|---+-------------------------------+-------+-------+-------+-------+-------+--------+-------------------------------+---|
+| | Vacas Existentes | 20 | - | - | - | - | - | - a calcular | |
+| ^ | | VE1 | | | | | | | |
+| | Novilhas (12 a 24) existentes | 05 | - | - | - | - | - | - a calcular | |
+| ^ | | NE1 | | | | | | | |
+| | Bezerras existentes | 0 | - | - | - | - | - | - a calcular | |
+| ^ | | TE1 | | | | | | | |
+|---+-------------------------------+-------+-------+-------+-------+-------+--------+-------------------------------+---|
+| | Novilhas para vacas | 0 | 0 | 5 | 5 | 7 | 7 | | |
+| ^ | | TN1 | TN2 | TN3 | TN4 | TN5 | TN6 | | |
+| | % Bezerras para novilhas | 0.4 | 0.4 | 0.4 | 0.4 | 0.4 | 0.4 | com base no total de nascidos | |
+| ^ | | BA1 | BA2 | BA3 | BA4 | BA5 | BA6 | | |
+|---+-------------------------------+-------+-------+-------+-------+-------+--------+-------------------------------+---|
+| | Vacas a vender | 0 | 0 | 0 | 3 | 3 | 5 | | |
+| ^ | | VV1 | VV2 | VV3 | VV4 | VV5 | VV6 | | |
+| | Novilhas a vender (Num) | 0 | 0 | 0 | 0 | 7 | 7 | | |
+| ^ | | NV1 | NV2 | NV3 | NV4 | NV5 | NV6 | | |
+| | Bezerras a vender | 0 | 0 | 1 | 1 | 1 | 1 | | |
+| ^ | | BV1 | BV2 | BV3 | BV4 | BV5 | BV6 | | |
+|---+-------------------------------+-------+-------+-------+-------+-------+--------+-------------------------------+---|
+| | Vacas a comprar | 0 | 5 | 0 | 0 | 0 | 0 | | |
+| ^ | | VC1 | VC2 | VC3 | VC4 | VC5 | VC6 | | |
+| | Novilhas a comprar | 2 | 0 | 0 | 0 | 0 | 0 | | |
+| ^ | | NC1 | NC2 | NC3 | NC4 | NC5 | NC6 | | |
+| | Bezerras a compras | 1 | 1 | 1 | 1 | 1 | 1 | | |
+| ^ | | BC1 | BC2 | BC3 | BC4 | BC5 | BC6 | | |
+|---+-------------------------------+-------+-------+-------+-------+-------+--------+-------------------------------+---|
+>>>>>>> 1d4d4f8 (para discutir na reuniao)
Com a evolução estimada através dos indicadores:
. 1 parto por vaca por ano;
@@ -119,7 +178,11 @@ Com a evolução estimada através dos indicadores:
. Aproveitamento de 40% dos nascidos para repsição
Temos o seguinte:
>> Iniciamos com 20 vacas
+<<<<<<< HEAD
>> Compramos 5 novilhas cobertas
+=======
+>> No segundo ano serão compradas 2 novilhas
+>>>>>>> 1d4d4f8 (para discutir na reuniao)
#+Caption: Composição do rebanho na fazenda VITRUVIO (ANO 1)
@@ -128,6 +191,7 @@ Temos o seguinte:
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
| # | VACAS >24 | 20 | 0 | 0 | 0 | 20 | 0 | 20 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
+<<<<<<< HEAD
| # | NOVILHAS 12<>24 | 0 | 0 | 5 | 0 | 5 | 0 | 5 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | BEZERRAS <12 | 0 | 8 | 0 | 0 | 8 | 8 | 0 |
@@ -135,6 +199,17 @@ Temos o seguinte:
| # | Outros | | 0 | 0 | 0 | | 0 | 0 |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
#+TBLFM: $EAV=remote(Tab0, $VE1)::$EFV=$SAV-$TCV::$SAV=$EAV+$TRV+$COV-$VEV::$TCN=remote(Tab0,$TN1)::$VEV=remote(Tab0, $VV1):: $EAN=remote(Tab0, $NE1)::$TRN=remote(Tab0, $TN1)::$CON=remote(Tab0, $NC1)::$VEN=remote(Tab0, $NV1)::$SAN=$EAN+$TRN+$CON-$VEN::$EFN=$SAN-$TCN::$EAB=remote(Tab0, $TE1)::$FRB=$EFV*remote(Tab0, $BA1);%.0f::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB
+=======
+| # | NOVILHAS 12<>24 | 1 | 5 | 2 | 0 | 8 | 0 | 3 |
+| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
+| # | BEZERRAS <12 | 2 | 8 | 0 | 0 | 10 | 10 | 0 |
+| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
+| # | Outros | | 0 | 0 | 0 | | 0 | 0 |
+| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
+#+TBLFM: $EAV=remote(Tab0, $VE1)::$EFV=$SAV-$TCV::$SAV=$EAV+$TRV+$COV-$VEV::$TCN=remote(Tab0,$TN1)::$VEV=remote(Tab0, $VV1)
+#+TBLFM: $EAN=remote(Tab0, $NE1)::$TRN=remote(Tab0, $TN1)::$CON=remote(Tab0, $NC1)::$VEN=remote(Tab0, $NV1)::$SAN=$EAN+$TRN+$CON-$VEN::$EFN=$SAN-$TCN
+#+TBLFM:$EAB=remote(Tab0, $TE1) ::$FRB=$EFV*remote(Tab0, $BA1);%.0f::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB
+>>>>>>> 1d4d4f8 (para discutir na reuniao)
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.
@@ -145,11 +220,19 @@ Na tabela 3.1 consta o número de animais para cada categoria, com as ocorrencia
#+NAME: Tab3_2
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
+<<<<<<< HEAD
| # | VACAS >24 | 20 | 0 | 0 | 0 | 20 | 0 | 20 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 5 | 8 | 0 | 0 | 13 | 13 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 8 | 0 | 0 | 8 | 8 | 0 |
+=======
+| # | VACAS >24 | 20 | 0 | 5 | 0 | 25 | 0 | 25 |
+| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
+| # | Novilhas 12<>24 | 3 | 10 | 0 | 0 | 13 | 13 | 0 |
+| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
+| # | Bezerras <12 | 0 | 10 | 1 | 0 | 11 | 11 | 0 |
+>>>>>>> 1d4d4f8 (para discutir na reuniao)
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | 1 | | 1 |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
@@ -164,11 +247,19 @@ Na tabela 3.3 podemos observar...
#+NAME: Tab3_3
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
+<<<<<<< HEAD
| # | VACAS >24 | 20 | 13 | 0 | 0 | 33 | 0 | 33 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 8 | 0 | 0 | 8 | 8 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 13 | 0 | 1 | 12 | 12 | 0 |
+=======
+| # | VACAS >24 | 25 | 13 | 0 | 0 | 38 | 0 | 38 |
+| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
+| # | Novilhas 12<>24 | 0 | 11 | 0 | 0 | 11 | 11 | 0 |
+| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
+| # | Bezerras <12 | 0 | 15 | 1 | 1 | 15 | 15 | 0 |
+>>>>>>> 1d4d4f8 (para discutir na reuniao)
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | 1 | | 1 |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
@@ -182,11 +273,19 @@ Na tabela 3.4 ...
#+NAME: Tab3_4
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
+<<<<<<< HEAD
| # | VACAS >24 | 33 | 8 | 0 | 3 | 38 | 0 | 38 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 12 | 0 | 0 | 12 | 12 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 15 | 0 | 1 | 14 | 14 | 0 |
+=======
+| # | VACAS >24 | 38 | 11 | 0 | 3 | 46 | 0 | 46 |
+| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
+| # | Novilhas 12<>24 | 0 | 15 | 0 | 0 | 15 | 15 | 0 |
+| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
+| # | Bezerras <12 | 0 | 18 | 1 | 1 | 18 | 18 | 0 |
+>>>>>>> 1d4d4f8 (para discutir na reuniao)
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | 1 | | 1 |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
@@ -205,6 +304,7 @@ na tabela 3.5
:END:
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
+<<<<<<< HEAD
| # | VACAS >24 | 38 | 12 | 0 | 10 | 40 | 0 | 40 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 14 | 0 | 7 | 7 | 7 | 0 |
@@ -214,6 +314,16 @@ na tabela 3.5
| # | outros | 1 | | | | 1 | | 1 |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
| | | | | | | | | |
+=======
+| # | VACAS >24 | 46 | 15 | 0 | 3 | 58 | 0 | 58 |
+| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
+| # | Novilhas 12<>24 | 0 | 18 | 0 | 7 | 11 | 11 | 0 |
+| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
+| # | Bezerras <12 | 0 | 23 | 1 | 1 | 23 | 23 | 0 |
+| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
+| # | outros | 1 | | | | 1 | | 1 |
+| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
+>>>>>>> 1d4d4f8 (para discutir na reuniao)
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
#+TBLFM: $EAV=remote(Tab3_4, $EFV)::$TRV=remote(Tab3_4, $TCN)::$COV=remote(Tab0,$VC5)::$VEV=remote(Tab0, $VV5)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_4, $EFN)::$TRN=remote(Tab3_4, $TCB)::$CON=remote(Tab0,$NC5)::$VEN=remote(Tab0, $NV5)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_4, $EFB)::$FRB=$EFV*remote(Tab0, $BA5);%.0f::$COB=remote(Tab0,$BC5)::$VEB=remote(Tab0,$BV4)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB
@@ -224,16 +334,27 @@ e, finalmente, na tabela 3.6, a composição do rebanho no sexto ano após a imp
#+caption: Composição do rebanho na fazenda VITRUVIO (ANO 6)
| | CATEGORIA | EXTTANT | TIR | COMPRA | VENDA | SALDO | TIC | EXTTFIN |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
+<<<<<<< HEAD
| # | VACAS >24 | 40 | 7 | 0 | 7 | 40 | 0 | 40 |
| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
| # | Novilhas 12<>24 | 0 | 15 | 0 | 7 | 8 | 8 | 0 |
| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
| # | Bezerras <12 | 0 | 16 | 0 | 1 | 15 | 15 | 0 |
+=======
+| # | VACAS >24 | 58 | 11 | 0 | 5 | 64 | 0 | 64 |
+| ^ | | EAV | TRV | COV | VEV | SAV | TCV | EFV |
+| # | Novilhas 12<>24 | 0 | 23 | 0 | 7 | 16 | 16 | 0 |
+| ^ | | EAN | TRN | CON | VEN | SAN | TCN | EFN |
+| # | Bezerras <12 | 0 | 26 | 1 | 1 | 26 | 26 | 0 |
+>>>>>>> 1d4d4f8 (para discutir na reuniao)
| ^ | | EAB | FRB | COB | VEB | SAB | TCB | EFB |
| # | outros | 1 | | | | 1 | | 1 |
| ^ | | EAO | FRO | COO | VEO | SAO | TCO | EFO |
|---+-----------------+---------+-----+--------+-------+-------+-----+---------|
+<<<<<<< HEAD
| | | | | | | | | |
+=======
+>>>>>>> 1d4d4f8 (para discutir na reuniao)
#+TBLFM: $EAV=remote(Tab3_5, $EFV)::$TRV=remote(Tab3_5, $TCN)::$COV=remote(Tab0,$VC6)::$VEV=remote(Tab0, $VV6)::$SAV=$EAV+$TRV+$COV-$VEV::$EFV=$SAV::$EAN=remote(Tab3_5, $EFN)::$TRN=remote(Tab3_5, $TCB)::$CON=remote(Tab0,$NC6)::$VEN=remote(Tab0, $NV6)::$SAN=$EAN+$TRN+$CON-$VEN::$TCN=$SAN::$EFN=$SAN-$TCN::$EAB=remote(Tab3_5, $EFB)::$FRB=$EFV*remote(Tab0, $BA6);%.0f::$COB=remote(Tab0,$BC6)::$VEB=remote(Tab0,$BV6)::$SAB=$EAB+$FRB+$COB-$VEB::$TCB=$SAB::$EFB=$SAB-$TCB
@@ -252,32 +373,50 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
:END:
| | Ano | 2004 | 2005 | 2006 | 2007 | 2008 | 2009 |
|---+-----------+------+------+------+------+------+------|
+<<<<<<< HEAD
| # | Vacas | 20 | 20 | 33 | 38 | 40 | 40 |
| # | Novilhas | 5 | 13 | 8 | 12 | 7 | 8 |
| # | Terneiras | 8 | 8 | 12 | 14 | 15 | 15 |
|---+-----------+------+------+------+------+------+------|
| # | Total | 33 | 41 | 53 | 64 | 60 | 63 |
#+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$3+@4$7::@5$8=@2$8+@3$8+@4$8
+=======
+| # | Vacas | 20 | 25 | 38 | 46 | 58 | 64 |
+| # | Novilhas | 8 | 13 | 11 | 15 | 11 | 16 |
+| # | Terneiras | 10 | 11 | 15 | 18 | 23 | 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)
+>>>>>>> 1d4d4f8 (para discutir na reuniao)
* 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.>>
*** Importação dos dados dos animais existentes
#+BEGIN_src R
+<<<<<<< HEAD
library (data.table)
library(tidyr)
library(dplyr)
Evol_exist <- fread("data/Tabela4.csv", check.names =FALSE, header=TRUE)
str(Evol_exist)
+=======
+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)
#+END_src
@@ -285,6 +424,7 @@ str(Evoluc)
** Gráfico 1
#+header: :width 8 :height 8 :family Times
+<<<<<<< HEAD
#+begin_src R :file ..fig/evol1.png :results file graphics
library (ggplot2)
@@ -296,10 +436,27 @@ str(Evoluc)
#+end_src
#+RESULTS:
-[[file:..fig/Evol1.png]]
+[[file:..fig/Evol1.png]]
+
+
* TODO - Resolver exportação figura no arquivo html
+** Animais comprados
+
+| # | Vacas compradas | | | | | | | | | | | | | | | |
+| # | Novilhas compradas | | | | | | | as | | | | | | | | |
+| # | Terneiras compradas | | | | | | | | | | | | | | | |
+|---+---------------------+-------+-------+-------+-------+-------+-------+----+---+---+---+---+---+---+---+---|
+
+
+
+** Animais vendidos
+| # | Vacas vendidas | | | | | | | | | | | | | | | |
+| # | Novilhas vendidas | | | | | | | | | | | | | | | |
+| # | Terneiras vendidas | | | | | | | | | | | | | | |
+
+>>>>>>> 1d4d4f8 (para discutir na reuniao)
* Figuras (só para testar)
Exemplo 2
@@ -309,6 +466,7 @@ Exemplo 2
Exemplo 3 -
+<<<<<<< HEAD
#+begin_export html
@@ -321,3 +479,8 @@ Exemplo 3 -
#+end_export>
+=======
+#+Caption: Composição do rebanho. Nes propriedade, os animais são divididos em dois lotes para o pastoreio.
+#+ATTR_HTML: width 200 px :aling center
+[[https://nuvem.multifarm.top/apps/files/?dir=/Photos&openfile=457848]]
+>>>>>>> 1d4d4f8 (para discutir na reuniao)
diff --git a/README b/README
index 2262523..d72a9f8 100644
--- a/README
+++ b/README
@@ -1,3 +1,7 @@
+<<<<<<< HEAD
'Este repositório, da multifarm, terá como função a elaboração de uma estimativa de evolução do rebanho.
Inicialmente, o arquivo [[Evolução.org]] tem as configurações para bovinos de leite.
Deverá ser criado outro script para bovinos de corte, tanto para sistemas de recria, quanto para ciclo completo ou terminação.
+=======
+Campos_rebanho
+>>>>>>> 1d4d4f8 (para discutir na reuniao)
diff --git a/data/Tabela4.csv b/data/Tabela4.csv
index a1c1e47..ce98dc0 100644
--- a/data/Tabela4.csv
+++ b/data/Tabela4.csv
@@ -1,5 +1,11 @@
Ano,2004,2005,2006,2007,2008,2009
+<<<<<<< HEAD
Vacas,20,20,33,38,40,40
Novilhas,5,13,8,12,7,8
Terneiras,8,8,12,14,15,15
Total,33,41,53,64,60,63
+=======
+Vacas,20,25,38,46,58,64
+Novilhas,8,13,11,15,11,16
+Terneiras,10,11,15,18,23,26
+>>>>>>> 1d4d4f8 (para discutir na reuniao)