From 8f177940179e647692a1a0ec266d51ac0649274e Mon Sep 17 00:00:00 2001
From: Adenor <adenor20@disroot.org>
Date: Thu, 28 Sep 2023 13:03:09 -0300
Subject: [PATCH] =?UTF-8?q?altera=C3=A7=C3=A3o=20cabe=C3=A7alhos?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 EvolucaoVitruvio.org | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/EvolucaoVitruvio.org b/EvolucaoVitruvio.org
index f37bfed..6d2fe74 100644
--- a/EvolucaoVitruvio.org
+++ b/EvolucaoVitruvio.org
@@ -1,9 +1,10 @@
-
 #+Title:Evolução de rebanho leiteiro em PRV
 #+DESCRIPTION:
 #+LANGUAGE: portuguese
 #+AUTHOR: Adenor Wendling
 #+DATE: 08-31-2023
+#+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 
 #+share: false
@@ -300,14 +301,14 @@ Os dados da tabela abaixo resultam da estimativa de evolução de rebanho, de ac
 * 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  
+#+begin_src R  
   library (data.table)
   library(tidyr)
 library(dplyr)
   library (ggplot2)
-#+END_src
+#+end_src
 
-#+BEGIN_src R
+#+begin_src R
   Evol_exist <- fread("data/Tabela4.csv", check.names =FALSE, header=TRUE)
     str(Evol_exist)
   
@@ -321,7 +322,7 @@ library(dplyr)
   #View(Evoluc)
   str(Evoluc)
   
-#+END_src
+#+end_src
 
 
 *** Gráfico da evolução do rebanho