diff --git a/docs/01-tcc.pdf b/docs/01-tcc.pdf
index 865430f8badac29672c71f29de0b637c700ad4f0..fce80c3eff460ca42ceee91e5a68560e09c4fe20 100644
Binary files a/docs/01-tcc.pdf and b/docs/01-tcc.pdf differ
diff --git a/docs/_setup.R b/docs/_setup.R
index a33b10f2d2cbc13e470bce38e55139c2624e61c6..def7353331051107530455301293d30795626ac8 100644
--- a/docs/_setup.R
+++ b/docs/_setup.R
@@ -41,6 +41,7 @@ opts_chunk$set(
##======================================================================
## Configura opções de gráficos do knitr
+library(lattice)
library(latticeExtra)
mycol <- c(1, "#377EB8", "#E41A1C", "#4DAF4A",
"#ff00ff", "#FF7F00", "#984EA3", "#FFFF33")
@@ -59,8 +60,22 @@ ps <- list(
superpose.symbol = list(col = mycol, pch = 1),
superpose.polygon = list(col = mycol),
strip.background = list(col = c("gray90", "gray70")))
+
+##======================================================================
+## Para incluir fonte (source) nas figuras
+
+## da lattice (use o argumento sub = "texto" nos graficos)
+ps$par.sub.text <- list(font = 1, just = "left", cex = 0.9,
+ x = grid::unit(5, "mm"))
trellis.par.set(ps)
+## da graphics (use fonte("texto") após os gráficos)
+fonte <- function(texto, side = 1, line = -1, adj = 0,
+ outer = TRUE, ...) {
+ mtext("Fonte: Elaborado pelo autor.", cex = 0.9,
+ side = side, line = line, adj = adj, outer = outer, ...)
+}
+
##======================================================================
## Configura opções de output no documento
options(digits = 3, OutDec = ",",
diff --git a/docs/cap01_introducao.Rnw b/docs/cap01_introducao.Rnw
index 29c9867e10064ffc9166587552dad7308beef12f..902b671e010d35dccff967809365fa7a1a9250ea 100644
--- a/docs/cap01_introducao.Rnw
+++ b/docs/cap01_introducao.Rnw
@@ -110,7 +110,7 @@ coords <- sapply(list("equi" = equi, "over" = over, "unde" = unde),
da <- plyr::ldply(coords, .id="caso")
library(latticeExtra)
-col <- trellis.par.get("superpose.line")$col[1]
+col <- "gray50"
xyplot(y ~ x | caso, data = da,
layout = c(NA, 1),
as.table = TRUE,
@@ -121,8 +121,8 @@ xyplot(y ~ x | caso, data = da,
strip = strip.custom(
factor.levels = c("Equidispersão",
"Superdispersão",
- "Subdispersão")
- ),
+ "Subdispersão")),
+ sub = "Fonte: Elaborado pelo autor.",
panel = function(x, y, subscripts, ...) {
l <- seq(min(x), max(x), length.out = 10)
panel.abline(h = l, v = l, col = col, lty = 2)
diff --git a/docs/cap02_revisao-de-literatura.Rnw b/docs/cap02_revisao-de-literatura.Rnw
index 0c9025c62492e2ed5f8f4ea007e152b0ba232627..656f7e4ee31c3685dfdb743e2b708918af160ee4 100644
--- a/docs/cap02_revisao-de-literatura.Rnw
+++ b/docs/cap02_revisao-de-literatura.Rnw
@@ -59,6 +59,8 @@ 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}
\end{table}
%%----------------------------------------------------------------------
@@ -133,7 +135,8 @@ xyplot(values ~ y | factor(ind), data = da,
layout = c(NA, 1),
ylab = expression(Pr(Y == y)),
type = c("h", "g"), as.table = TRUE,
- strip = strip.custom(factor.levels = fl))
+ strip = strip.custom(factor.levels = fl),
+ sub = "Fonte: Elaborado pelo autor.")
@
@@ -313,7 +316,7 @@ fl <- substitute(
list(p1 = phis[1], p2 = phis[2], p3 = phis[3]))
cols <- trellis.par.get("superpose.line")$col[1:2]
yaxis <- pretty(da.po$values, n = 2)
-ylim <- c(-0.07, max(da.po$values)*1.2)
+ylim <- c(-0.08, max(da.po$values)*1.2)
key <- list(
columns = 2,
lines = list(lty = 1, col = cols),
@@ -329,7 +332,8 @@ xyplot(values ~ c(y - 0.15) | ind, data = da.po,
scales = list(y = list(at = yaxis)),
layout = c(NA, 1),
key = key,
- strip = strip.custom(factor.levels = fl)) +
+ strip = strip.custom(factor.levels = fl),
+ sub = "Fonte: Elaborado pelo autor.") +
as.layer(xyplot(
values ~ c(y + 0.15) | ind, data = da.bn,
type = "h", col = cols[2]))
@@ -379,7 +383,7 @@ labels <- substitute(
## Gráfico
## Curva identidade representando a Poisson
-par(mar = c(4, 4.2, 3, 3))
+par(mar = c(5.5, 4.2, 3, 3))
curve(mu + 1*0,
from = 0, to = 10, xname = "mu",
ylab = expression(V(Y) == mu + mu^2~"/"~phi),
@@ -396,7 +400,8 @@ plotrix::color.legend(
legend = round(fivenum(phi)[c(1, 3, 5)]),
rect.col = col)
mtext(text = expression(phi), side = 3, cex = 1.5,
- line = -4.5, at = 11.5)
+ line = -4, at = 11.5)
+fonte("Fonte: Elaborado pelo autor.")
wrapfigure()
@
@@ -523,7 +528,8 @@ xyplot(values ~ c(y - 0.15) | ind, data = da.po,
scales = list(y = list(at = yaxis)),
layout = c(NA, 1),
key = key,
- strip = strip.custom(factor.levels = fl)) +
+ strip = strip.custom(factor.levels = fl),
+ sub = "Fonte: Elaborado pelo autor.") +
as.layer(xyplot(
values ~ c(y + 0.15) | ind, data = da.co,
type = "h", col = cols[2]))
@@ -531,7 +537,7 @@ for(i in 1:3){
trellis.focus("panel", i, 1, highlight=FALSE)
grid::grid.text(label = sprintf("E[Y]: %.1f\nV[Y]: %.1f",
mus[i], mus[i]),
- x = .57, y = 0.04,
+ x = .57, y = 0.03,
default.units = "npc",
gp = grid::gpar(col = cols[1]),
just = c("left", "bottom"))
@@ -600,7 +606,8 @@ xyplot(values ~ c(y - 0.15) | ind, data = da,
xlab = "y", ylab = expression(P(Y == y)),
scales = list(relation = "free"),
layout = c(NA, 1),
- par.strip = list(lines = 2, col = "transparent"))
+ par.strip = list(lines = 2, col = "transparent"),
+ sub = "Fonte: Elaborado pelo autor.")
distr <- c("Poisson", "Bernoulli", "Geométrica")
##-------------------------------------------
## http://stackoverflow.com/questions/33632344/strip-with-two-lines-title-r-lattice-plot
@@ -665,7 +672,7 @@ labels <- substitute(
##-------------------------------------------
## Gráfico
-par(mar = c(5, 5, 3, 3) + 0.1)
+par(mar = c(6.5, 5, 3, 3) + 0.1)
## Curva identidade representando a Poisson
curve((1/1)*(mu + (1 - 1)/(2*1)), xlab = "", ylab = "",
from = 0, to = 10, xname = "mu")
@@ -686,7 +693,8 @@ plotrix::color.legend(
legend = round(fivenum(nu)[c(1, 3, 5)]),
rect.col = col)
mtext(text = expression(nu), side = 3, cex = 1.5,
- line = -4, at = 11.5)
+ line = -3.5, at = 11.5)
+fonte("Fonte: Elaborado pelo autor.")
wrapfigure()
@@ -777,7 +785,8 @@ xyplot(z ~ j | .id, data = da,
ylab = list(
expression(frac(lambda^j, "(j!)"^nu)),
rot = 0),
- strip = strip.custom(factor.levels = fl))
+ strip = strip.custom(factor.levels = fl),
+ sub = "Fonte: Elaborado pelo autor.")
@
@@ -878,7 +887,8 @@ xyplot(py_real ~ c(yu - 0.15) | caso, data = da,
ylab = expression(Pr(Y==y)),
ylim = ylim,
key = key,
- strip = strip.custom(factor.levels = paste("Simulação", 1:2))) +
+ strip = strip.custom(factor.levels = paste("Simulação", 1:2)),
+ sub = "Fonte: Elaborado pelo autor.") +
as.layer(xyplot(
py_dcmp ~ c(yu + 0.15) | caso, data = da,
type = "h", col = cols[2]))