diff --git a/EvolucaoVitruvio.org b/EvolucaoVitruvio.org
index 60eccea..c706185 100644
--- a/EvolucaoVitruvio.org
+++ b/EvolucaoVitruvio.org
@@ -331,8 +331,14 @@ library(dplyr)
   Evoluc<-ggplot(Evoluc, aes(x=Ano, y=Cabecas, group = Categoria))+
       geom_line (aes(color=Categoria))+
      geom_point(aes(color=Categoria))
-     
+     getwd()
+png(filename="fig/Evoluc1.png")
+plot(Evoluc)
+
  Evoluc
+
+
+
 #+end_src
 
 #+RESULTS:
diff --git a/data/Tabela4.csv b/data/Tabela4.csv
index e5507df..3178b76 100644
--- a/data/Tabela4.csv
+++ b/data/Tabela4.csv
@@ -1,5 +1,6 @@
 Ano,2004,2005,2006,2007,2008,2009
-Vacas,20,25,40,48,61,68
-Novilhas,7,15,11,16,12,17
-Terneiras,8,11,16,19,24,27
-Total,35,51,67,83,92,112
+Vacas,20,20,35,40,40,40
+Novilhas,7,15,8,14,9,8
+Terneiras,8,8,14,16,16,16
+Total,35,43,57,70,63,64
+,,,,,,