Skip to content
Snippets Groups Projects
Commit ce4f2a26 authored by Eduardo E. R. Junior's avatar Eduardo E. R. Junior
Browse files

Corrige funções usados para exibição dos resultados

parent f141ea73
No related branches found
No related tags found
1 merge request!3Correções e adequações do trabalho
...@@ -39,7 +39,7 @@ opts_chunk$set( ...@@ -39,7 +39,7 @@ opts_chunk$set(
fig.width = 7, fig.width = 7,
fig.height = 5, fig.height = 5,
fig.align = "center", fig.align = "center",
fig.pos = "!htb", fig.pos = "h",
dev.args = list(family = "Palatino")) dev.args = list(family = "Palatino"))
##====================================================================== ##======================================================================
...@@ -94,8 +94,8 @@ fonte.xy <- function(texto, ...) { ...@@ -94,8 +94,8 @@ fonte.xy <- function(texto, ...) {
## da graphics (use fonte("texto") após os gráficos) ## da graphics (use fonte("texto") após os gráficos)
fonte <- function(texto, side = 1, line = -1, adj = 0, fonte <- function(texto, side = 1, line = -1, adj = 0,
outer = TRUE, ...) { cex = 0.9, outer = TRUE, ...) {
mtext("Fonte: Elaborado pelo autor.", cex = 0.9, mtext(texto, cex = cex,
side = side, line = line, adj = adj, outer = outer, ...) side = side, line = line, adj = adj, outer = outer, ...)
invisible() invisible()
} }
...@@ -197,7 +197,7 @@ myprof <- function(prof, conf = c(0.9, 0.95, 0.99), ...@@ -197,7 +197,7 @@ myprof <- function(prof, conf = c(0.9, 0.95, 0.99),
##------------------------------------------- ##-------------------------------------------
fl <- levels(da$param) fl <- levels(da$param)
if (!is.null(namestrip)) { if (!is.null(namestrip)) {
fl <- expression(phi, log(sigma), beta[0], beta[1]) fl <- namestrip
} }
xyplot(abs(z) ~ focal | param, xyplot(abs(z) ~ focal | param,
data = da, data = da,
...@@ -232,7 +232,7 @@ myprof <- function(prof, conf = c(0.9, 0.95, 0.99), ...@@ -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, panel.text(x = rep(mle, 2), y = vz+0.1,
labels = paste(conf*100, "%"), labels = paste(conf*100, "%"),
col = "gray20") col = "gray20")
}) }, ...)
} }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment