From b8df1bb5c0732c6e0f831eb1a7c9f1e11389a26b Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Wed, 8 Jun 2016 09:25:11 -0300
Subject: [PATCH] =?UTF-8?q?Modifica=20inser=C3=A7=C3=A3o=20de=20descri?=
 =?UTF-8?q?=C3=A7=C3=A3o=20da=20fonte=20em=20tabelas?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Utiliza o pacote treeparttable, mais especificamente o ambiente
tablenotes após o tabular e antes do table.
---
 docs/01-tcc.Rnw                      | 9 +++++++++
 docs/cap02_revisao-de-literatura.Rnw | 8 +++++---
 2 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/docs/01-tcc.Rnw b/docs/01-tcc.Rnw
index 1fa8e6e..2f4039d 100644
--- a/docs/01-tcc.Rnw
+++ b/docs/01-tcc.Rnw
@@ -63,6 +63,13 @@
 \usepackage{setspace}
 \usepackage{wrapfig}
 
+% ---
+% Para titulo em destaque sem sequencia de numeração
+% ---
+\newcommand{\datatitle}[1]{
+  \normalsize \textsc{#1}
+}
+
 % ---
 % Funções matematicas
 % ---
@@ -75,6 +82,8 @@
 % Para tabelas
 % ---
 \usepackage{multirow}
+\usepackage{array}
+\usepackage{threeparttable}
 
 % ---
 % Pacotes e definições adcionais, para adequações especificas
diff --git a/docs/cap02_revisao-de-literatura.Rnw b/docs/cap02_revisao-de-literatura.Rnw
index 656f7e4..74d94b2 100644
--- a/docs/cap02_revisao-de-literatura.Rnw
+++ b/docs/cap02_revisao-de-literatura.Rnw
@@ -59,9 +59,11 @@ Katz                                & \checkmark        & \checkmark     & \chec
 \textit{Double-Poisson}             & \checkmark        & \checkmark     & \checkmark   \\
 \textit{Lagrangian Poisson}         & \checkmark        & \checkmark     & \checkmark   \\
   \bottomrule
-  \\[-0.3cm]
-  {\small Fonte: Elaborado pelo autor.}
 \end{tabular}
+\begin{tablenotes}
+  \small
+\item Fonte: Elaborado pelo autor.
+\end{tablenotes}
 \end{table}
 %%----------------------------------------------------------------------
 
@@ -860,7 +862,7 @@ probs <- sapply(sim, function(y) {
     m0 <- glm(y ~ 1, family = poisson)
     py_pois <- dpois(yu, exp(m0$coef))
     ##-------------------------------------------
-    m1 <- cmp(y ~ 1, data = data.frame(y = y), sumto = 40)
+    m1 <- MRDCr::cmp(y ~ 1, data = data.frame(y = y), sumto = 40)
     py_dcmp <- dcmp(yu, lambda = exp(m1@coef[-1]),
                     nu = exp(m1@coef[1]), sumto = 40)
     ##-------------------------------------------
-- 
GitLab