From ce4f2a26f57cb6640c3c2e0fa43da2359facfa04 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Tue, 21 Jun 2016 10:13:42 -0300
Subject: [PATCH] =?UTF-8?q?Corrige=20fun=C3=A7=C3=B5es=20usados=20para=20e?=
=?UTF-8?q?xibi=C3=A7=C3=A3o=20dos=20resultados?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
docs/_setup.R | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/docs/_setup.R b/docs/_setup.R
index e64f132..23719f7 100644
--- a/docs/_setup.R
+++ b/docs/_setup.R
@@ -39,7 +39,7 @@ opts_chunk$set(
fig.width = 7,
fig.height = 5,
fig.align = "center",
- fig.pos = "!htb",
+ fig.pos = "h",
dev.args = list(family = "Palatino"))
##======================================================================
@@ -94,8 +94,8 @@ fonte.xy <- function(texto, ...) {
## 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,
+ cex = 0.9, outer = TRUE, ...) {
+ mtext(texto, cex = cex,
side = side, line = line, adj = adj, outer = outer, ...)
invisible()
}
@@ -197,7 +197,7 @@ myprof <- function(prof, conf = c(0.9, 0.95, 0.99),
##-------------------------------------------
fl <- levels(da$param)
if (!is.null(namestrip)) {
- fl <- expression(phi, log(sigma), beta[0], beta[1])
+ fl <- namestrip
}
xyplot(abs(z) ~ focal | param,
data = da,
@@ -232,7 +232,7 @@ myprof <- function(prof, conf = c(0.9, 0.95, 0.99),
panel.text(x = rep(mle, 2), y = vz+0.1,
labels = paste(conf*100, "%"),
col = "gray20")
- })
+ }, ...)
}
--
GitLab