Ajustes de estilo no texto - remover arquivo tmp

doc/.#EvolucaoTexto.org

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

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
+  #library(ascii) # exports result as org file
-  Composicao<-fread("~/Documentos/GITs/Compos_rebanho/data/composicao.csv",  header=TRUE)
+  library(flextable)
+  Composicao <- fread("../data/composicao.csv",  header=TRUE)
 
-  ft<-flextable(head(Composicao))
+  ft <- flextable(head(Composicao))
-  ft<-set_caption(ft,"Composição do rebanho depois de estabelisar o rebanho.")
+  ft <- set_caption(ft,"Composição do rebanho depois de estabelisar o rebanho.")
-  ft<-width(ft,width=1.05)
+  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: 
+#+ATTR_HTML:
-[[file:~/Documentos/GITs/Compos_rebanho/data/ResEvolVit.png][Figura 1 - Evolução do rebanho em forma de gráfico]
+[[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<-fread("../data/ResumoEntraSaiVitruvio.csv",  header=TRUE)
-EntraSai
+ EntraSai
-  ft2<-flextable(head(EntraSai))
+
-  ft2<-set_caption(ft2,"Previsão de entradas e saídas de animais.")
+ ft2 <- flextable(head(EntraSai))
-  ft2<-width(ft2,width=1.05)
+ ft2 <- set_caption(ft2,"Previsão de entradas e saídas de animais.")
-  print(theme_alafoli(ft2))
+ ft2 <- width(ft2,width=1.05)
+ print(theme_alafoli(ft2))
 #+end_src
 
 #+RESULTS: