From 9faf73150002781be2b5d3fec2c48fab9fc4abfd Mon Sep 17 00:00:00 2001 From: Jose Date: Wed, 25 Oct 2023 11:50:34 -0300 Subject: [PATCH] Ajustes de estilo no texto - remover arquivo tmp --- doc/.#EvolucaoTexto.org | 1 - doc/EvolucaoTexto.org | 50 +++++++++++++++++++++++------------------ 2 files changed, 28 insertions(+), 23 deletions(-) delete mode 120000 doc/.#EvolucaoTexto.org diff --git a/doc/.#EvolucaoTexto.org b/doc/.#EvolucaoTexto.org deleted file mode 120000 index 00ee34d..0000000 --- a/doc/.#EvolucaoTexto.org +++ /dev/null @@ -1 +0,0 @@ -adenor@adenor-550XDA.6318:1698059404 \ No newline at end of file diff --git a/doc/EvolucaoTexto.org b/doc/EvolucaoTexto.org index 381aea4..ddf44c1 100644 --- a/doc/EvolucaoTexto.org +++ b/doc/EvolucaoTexto.org @@ -1,7 +1,7 @@ -#+Title:Evolução de rebanho leiteiro em PRV +#+Title: Evolução de rebanho leiteiro em PRV #+AUTHOR: Adenor Wendling #+DATE: 10-23-2023 -#+OPTIONS: creator:nil timestamp:nil +#+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 @@ -12,6 +12,7 @@ #+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) @@ -30,11 +31,13 @@ | methods | | base | -* Composição e evolução do rebanho +** 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 | @@ -48,14 +51,15 @@ Propomos que a base da composição e evolução seja calculada em número de ca |-----------------------+------| 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 +#+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) + #library(ascii) # exports result as org file + library(flextable) + Composicao <- fread("../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) + 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 @@ -78,35 +82,37 @@ Com base nos índices zootécnicos e definições técnicas de capacidade de pro ;#+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) + Evolucao <- fread("../data/ResumoEvolucaoVitruvio.csv", header=TRUE) + + ft1 <- flextable(Evolucao) + ft1 <- set_caption(ft1,"Evolucao do rebanho durante os primeiros anos.") + ft1 <- width(ft1,width=1.05) - 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] +#+ATTR_HTML: +[[file:../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)) + EntraSai<-fread("../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: